Skip to content
Snippets Groups Projects
Verified Commit 903a7b1d authored by raphael.bach's avatar raphael.bach
Browse files

Add `fmpi_mpi_finalized()` check in `fmpi_mpi_abort()`

parent 1a5fa8a6
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 4 additions and 2 deletions
src/fmpi_mpi.c
+ 4
− 2
View file @ 903a7b1d
...@@ -168,6 +168,8 @@ _Bool fmpi_mpi_finalized(const struct fmpi_mpi_ctx * const ctx) ...@@ -168,6 +168,8 @@ _Bool fmpi_mpi_finalized(const struct fmpi_mpi_ctx * const ctx)
void fmpi_mpi_abort(const struct fmpi_mpi_ctx * const ctx) void fmpi_mpi_abort(const struct fmpi_mpi_ctx * const ctx)
{ {
assert(ctx != NULL); assert(ctx != NULL);
if(fmpi_mpi_finalized(ctx) == false) {
int err_id = MPI_Abort(MPI_COMM_WORLD, 1); int err_id = MPI_Abort(MPI_COMM_WORLD, 1);
fmpi_mpi_check_error(ctx, err_id, "MPI_Abort"); fmpi_mpi_check_error(ctx, err_id, "MPI_Abort");
} }
}
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment