Merge pull request #292 from ofaaland/b-fix-mpi-checkf
Do not execute functions twice in MPI_CHECKFmaster
commit
fbee4139d8
|
@ -94,12 +94,13 @@ extern int aiori_warning_as_errors;
|
||||||
#define MPI_CHECKF(MPI_STATUS, FORMAT, ...) do { \
|
#define MPI_CHECKF(MPI_STATUS, FORMAT, ...) do { \
|
||||||
char resultString[MPI_MAX_ERROR_STRING]; \
|
char resultString[MPI_MAX_ERROR_STRING]; \
|
||||||
int resultLength; \
|
int resultLength; \
|
||||||
|
int checkf_mpi_status = MPI_STATUS; \
|
||||||
\
|
\
|
||||||
if (MPI_STATUS != MPI_SUCCESS) { \
|
if (checkf_mpi_status != MPI_SUCCESS) { \
|
||||||
MPI_Error_string(MPI_STATUS, resultString, &resultLength); \
|
MPI_Error_string(checkf_mpi_status, resultString, &resultLength);\
|
||||||
fprintf(out_logfile, "ERROR: " FORMAT ", MPI %s, (%s:%d)\n", \
|
fprintf(out_logfile, "ERROR: " FORMAT ", MPI %s, (%s:%d)\n", \
|
||||||
__VA_ARGS__, resultString, __FILE__, __LINE__); \
|
__VA_ARGS__, resultString, __FILE__, __LINE__); \
|
||||||
fflush(out_logfile); \
|
fflush(out_logfile); \
|
||||||
MPI_Abort(MPI_COMM_WORLD, -1); \
|
MPI_Abort(MPI_COMM_WORLD, -1); \
|
||||||
} \
|
} \
|
||||||
} while(0)
|
} while(0)
|
||||||
|
|
Loading…
Reference in New Issue