diff options
Diffstat (limited to 'testpar/testphdf5.c')
| -rw-r--r-- | testpar/testphdf5.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/testpar/testphdf5.c b/testpar/testphdf5.c index f7846d7..98d394a 100644 --- a/testpar/testphdf5.c +++ b/testpar/testphdf5.c @@ -343,6 +343,7 @@ int main(int argc, char **argv) printf("PHDF5 TESTS START\n"); printf("===================================\n"); } + H5open(); h5_show_hostname(); fapl = H5Pcreate (H5P_FILE_ACCESS); @@ -354,6 +355,9 @@ int main(int argc, char **argv) goto finish; } + MPI_BANNER("test_comm_info_delete..."); + test_comm_info_delete(); + if (ndatasets){ MPI_BANNER("multiple datasets write ..."); multiple_dset_write(filenames[3], ndatasets); @@ -431,6 +435,10 @@ int main(int argc, char **argv) } finish: + /* make sure all processes are finished before final report, cleanup + * and exit. + */ + MPI_Barrier(MPI_COMM_WORLD); if (MAINPROCESS){ /* only process 0 reports */ printf("===================================\n"); if (nerrors){ @@ -441,9 +449,6 @@ finish: } printf("===================================\n"); } - - /* make sure all processes are finished before starting cleanup and exit */ - MPI_Barrier(MPI_COMM_WORLD); if (dowrite){ h5_cleanup(FILENAME, fapl); } else { @@ -453,6 +458,7 @@ finish: /* close HDF5 library */ H5close(); + /* MPI_Finalize must be called AFTER H5close which may use MPI calls */ MPI_Finalize(); return(nerrors); |