diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2003-04-23 21:19:51 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2003-04-23 21:19:51 (GMT) |
| commit | 4fa8fe270ccc29c93b6fd898e39220377c71e446 (patch) | |
| tree | 76d42ce9897792538de3a40840bdf74b25d56ece /testpar/t_ph5basic.c | |
| parent | d98f0d77c19badf83ecb0af7c40ab35fca23b424 (diff) | |
| download | hdf5-4fa8fe270ccc29c93b6fd898e39220377c71e446.zip hdf5-4fa8fe270ccc29c93b6fd898e39220377c71e446.tar.gz hdf5-4fa8fe270ccc29c93b6fd898e39220377c71e446.tar.bz2 | |
[svn-r6741] Purpose:
code cleanup.
Description:
Rename test_comm_info_delete to test_fapl_mpio_dup to better decribe
what it does. Updated the comments to describe more accurate.
Platforms tested:
Did not run h5commmittest since the changes were all in parallel area.
Ran parallel tests on modi4 and eirene.
Misc. update:
Diffstat (limited to 'testpar/t_ph5basic.c')
| -rw-r--r-- | testpar/t_ph5basic.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/testpar/t_ph5basic.c b/testpar/t_ph5basic.c index 75cbc60..ef44152 100644 --- a/testpar/t_ph5basic.c +++ b/testpar/t_ph5basic.c @@ -21,10 +21,11 @@ /*------------------------------------------------------------------------- - * Function: test_comm_info_delete + * Function: test_fapl_mpio_dup * - * Purpose: Test if communicator and INFO object can be safely deleted - * after calling H5Pset_fapl_mpio. + * Purpose: Test if fapl_mpio property list keeps a duplicate of the + * communicator and INFO objects given when set; and returns + * duplicates of its components when H5Pget_fapl_mpio is called. * * Return: Success: None * @@ -37,7 +38,7 @@ *------------------------------------------------------------------------- */ void -test_comm_info_delete(void) +test_fapl_mpio_dup(void) { int mpi_size, mpi_rank; MPI_Comm comm, comm_tmp; @@ -56,6 +57,8 @@ test_comm_info_delete(void) /* set up MPI parameters */ MPI_Comm_size(MPI_COMM_WORLD,&mpi_size); MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank); + if (verbose) + printf("rank/size of MPI_COMM_WORLD are %d/%d\n", mpi_rank, mpi_size); /* Create a new communicator that has the same processes as MPI_COMM_WORLD. * Use MPI_Comm_split because it is simplier than MPI_Comm_create @@ -144,6 +147,7 @@ test_comm_info_delete(void) VRFY((ret >= 0), "H5Pget_fapl_mpio neither"); /* now get both and check validity too. */ + /* Donot free the returned objects which are used in the next case. */ ret = H5Pget_fapl_mpio(acc_pl, &comm_tmp, &info_tmp); VRFY((ret >= 0), "H5Pget_fapl_mpio"); MPI_Comm_size(comm_tmp,&mpi_size_tmp); |