Skip to content
Snippets Groups Projects
Commit 68900b27 authored by d74ksy's avatar d74ksy
Browse files

Fixed MPI to send error messages correctly.

parent 09ef0d1b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
src/qsched.c
+ 2
− 0
View file @ 68900b27
...@@ -3712,6 +3712,7 @@ void qsched_enqueue ( struct qsched *s , struct task *t ) { ...@@ -3712,6 +3712,7 @@ void qsched_enqueue ( struct qsched *s , struct task *t ) {
char buff[MPI_MAX_ERROR_STRING]; char buff[MPI_MAX_ERROR_STRING];
int len; int len;
MPI_Error_string(err, buff, &len); MPI_Error_string(err, buff, &len);
message("%s", buff);
error("Failed to emit isend for task (%lli).", t->id); error("Failed to emit isend for task (%lli).", t->id);
} }
#else #else
...@@ -3779,6 +3780,7 @@ void qsched_enqueue ( struct qsched *s , struct task *t ) { ...@@ -3779,6 +3780,7 @@ void qsched_enqueue ( struct qsched *s , struct task *t ) {
char buff[MPI_MAX_ERROR_STRING]; char buff[MPI_MAX_ERROR_STRING];
int len; int len;
MPI_Error_string(err, buff, &len); MPI_Error_string(err, buff, &len);
message("%s", buff);
error("Failed to emit irecv for particle data (%s).", buff); error("Failed to emit irecv for particle data (%s).", buff);
} }
#else #else
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment