summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorFrank Willmore <frank.willmore@hdfgroup.org>2017-05-23 17:14:35 (GMT)
committerFrank Willmore <frank.willmore@hdfgroup.org>2017-05-23 17:14:35 (GMT)
commit8f25e21e105c2ed625c60e92f4d24ac4c0965219 (patch)
treedc680cd09ff38ea02a4879372d6b8177eca1fdba /src
parentd0a7400a344394f2a17157d2c8250adfbd57e93a (diff)
downloadhdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.zip
hdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.tar.gz
hdf5-8f25e21e105c2ed625c60e92f4d24ac4c0965219.tar.bz2
enabled MPI error handling
Diffstat (limited to 'src')
-rw-r--r--src/H5FDmpi.c5
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;