diff options
author | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2015-02-25 14:12:05 (GMT) |
---|---|---|
committer | Mohamad Chaarawi <chaarawi@hdfgroup.org> | 2015-02-25 14:12:05 (GMT) |
commit | 864a9d5552c3e74cb1c30756a9a216c039a26c27 (patch) | |
tree | 97b85ea9f6b95fdcf61e692db2a4f212156f0f46 /testpar/t_pflush1.c | |
parent | 85a644221848b047a46bdcff5f3371d690a2f55a (diff) | |
download | hdf5-864a9d5552c3e74cb1c30756a9a216c039a26c27.zip hdf5-864a9d5552c3e74cb1c30756a9a216c039a26c27.tar.gz hdf5-864a9d5552c3e74cb1c30756a9a216c039a26c27.tar.bz2 |
[svn-r26298] merge 26279 from trunk.
HDFFV-883: attach callback to terminate HDF5 library when MPI_COMM_SELF is destroyed on MPI_Finalize.
tested h5committest.
Diffstat (limited to 'testpar/t_pflush1.c')
-rw-r--r-- | testpar/t_pflush1.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/testpar/t_pflush1.c b/testpar/t_pflush1.c index ebe5c38..1bcfeb8 100644 --- a/testpar/t_pflush1.c +++ b/testpar/t_pflush1.c @@ -164,12 +164,9 @@ main(int argc, char* argv[]) } /* end else */ /* - * Some systems like Linux with mpich, if you just _exit without MPI_Finalize - * called, it would terminate but left the launching process waiting forever. - * OTHO, some systems like AIX do not like files not closed when MPI_Finalize - * is called. So, we need to get the MPI file handles, close them by hand, - * then MPI_Finalize. Then the _exit is still needed to stop at_exit from - * happening in some systems. + * Some systems like AIX do not like files not closed when MPI_Finalize + * is called. So, we need to get the MPI file handles, close them by hand. + * Then the _exit is still needed to stop at_exit from happening in some systems. * Note that MPIO VFD returns the address of the file-handle in the VFD struct * because MPI_File_close wants to modify the file-handle variable. */ @@ -195,13 +192,11 @@ main(int argc, char* argv[]) fflush(stdout); fflush(stderr); - MPI_Finalize(); HD_exit(0); error: fflush(stdout); fflush(stderr); - MPI_Finalize(); HD_exit(1); } |