diff options
| author | Frank Willmore <frank.willmore@hdfgroup.org> | 2017-05-23 17:14:35 (GMT) |
|---|---|---|
| committer | Frank Willmore <frank.willmore@hdfgroup.org> | 2017-05-23 17:14:35 (GMT) |
| commit | 8f25e21e105c2ed625c60e92f4d24ac4c0965219 (patch) | |
| tree | dc680cd09ff38ea02a4879372d6b8177eca1fdba | |
| parent | d0a7400a344394f2a17157d2c8250adfbd57e93a (diff) | |
| download | hdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.zip hdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.tar.gz hdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.tar.bz2 | |
enabled MPI error handling
| -rw-r--r-- | src/H5FDmpi.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/H5FDmpi.c b/src/H5FDmpi.c index fdc4eca..2b10151 100644 --- a/src/H5FDmpi.c +++ b/src/H5FDmpi.c @@ -278,6 +278,11 @@ H5FD_mpi_comm_info_dup(MPI_Comm comm, MPI_Info info, MPI_Comm *comm_new, MPI_Inf info_dup = info; } + /* Set MPI_ERRORS_RETURN on comm_dup so that MPI failures are not fatal, + and return codes can be checked and handled. May 23, 2017 FTW */ + if (MPI_SUCCESS != (mpi_code = MPI_Errhandler_set(comm_dup, MPI_ERRORS_RETURN))) + HMPI_GOTO_ERROR(FAIL, "MPI_Errhandler_set failed", mpi_code) + /* copy them to the return arguments */ *comm_new = comm_dup; *info_new = info_dup; |