A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
we should not set error flag when wait or test is called with a null request.
[simgrid.git]
/
src
/
smpi
/
smpi_pmpi.c
diff --git
a/src/smpi/smpi_pmpi.c
b/src/smpi/smpi_pmpi.c
index 7a8e852c5fe0bea77703eb7dacc097de404d287a..449a2cadd4d7f8398d568e3d28bca4d6afe9d989 100644
(file)
--- a/
src/smpi/smpi_pmpi.c
+++ b/
src/smpi/smpi_pmpi.c
@@
-1379,7
+1379,7
@@
int PMPI_Test(MPI_Request * request, int *flag, MPI_Status * status)
} else if (*request == MPI_REQUEST_NULL) {
*flag= TRUE;
smpi_empty_status(status);
} else if (*request == MPI_REQUEST_NULL) {
*flag= TRUE;
smpi_empty_status(status);
- retval = MPI_
ERR_REQUEST
;
+ retval = MPI_
SUCCESS
;
} else {
#ifdef HAVE_TRACING
int rank = request && (*request)->comm != MPI_COMM_NULL
} else {
#ifdef HAVE_TRACING
int rank = request && (*request)->comm != MPI_COMM_NULL
@@
-1486,7
+1486,7
@@
int PMPI_Wait(MPI_Request * request, MPI_Status * status)
if (request == NULL) {
retval = MPI_ERR_ARG;
} else if (*request == MPI_REQUEST_NULL) {
if (request == NULL) {
retval = MPI_ERR_ARG;
} else if (*request == MPI_REQUEST_NULL) {
- retval = MPI_
ERR_REQUEST
;
+ retval = MPI_
SUCCESS
;
} else {
#ifdef HAVE_TRACING
} else {
#ifdef HAVE_TRACING