summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--testpar/t_ph5basic.c12
-rw-r--r--testpar/testphdf5.c4
-rw-r--r--testpar/testphdf5.h1
3 files changed, 11 insertions, 6 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);
diff --git a/testpar/testphdf5.c b/testpar/testphdf5.c
index 98d394a..7aee5cd 100644
--- a/testpar/testphdf5.c
+++ b/testpar/testphdf5.c
@@ -355,8 +355,8 @@ int main(int argc, char **argv)
goto finish;
}
- MPI_BANNER("test_comm_info_delete...");
- test_comm_info_delete();
+ MPI_BANNER("test_fapl_mpio_dup...");
+ test_fapl_mpio_dup();
if (ndatasets){
MPI_BANNER("multiple datasets write ...");
diff --git a/testpar/testphdf5.h b/testpar/testphdf5.h
index 827f3b0..ced5841 100644
--- a/testpar/testphdf5.h
+++ b/testpar/testphdf5.h
@@ -120,6 +120,7 @@ void multiple_group_write(char *filename, int ngroups);
void multiple_group_read(char *filename, int ngroups);
void collective_group_write(char *filename, int ngroups);
void independent_group_read(char *filename, int ngroups);
+void test_fapl_mpio_dup(void);
void test_split_comm_access(char *filename);
void dataset_writeInd(char *filename);
void dataset_writeAll(char *filename);