Commit 6b8cee70 authored by Wesley Bland's avatar Wesley Bland Committed by Junchao Zhang
Browse files

Don't check the tag if the coll op completed with error


Signed-off-by: default avatarJunchao Zhang <jczhang@mcs.anl.gov>
parent 05cb62bd
...@@ -367,7 +367,7 @@ int MPIC_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag, ...@@ -367,7 +367,7 @@ int MPIC_Recv(void *buf, int count, MPI_Datatype datatype, int source, int tag,
if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) { if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) {
*errflag = TRUE; *errflag = TRUE;
MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG); MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG);
} else { } else if (MPIX_ERR_REVOKED != MPIR_ERR_GET_CLASS(status->MPI_ERROR)) {
MPIU_Assert(status->MPI_TAG == tag); MPIU_Assert(status->MPI_TAG == tag);
} }
} }
...@@ -486,11 +486,11 @@ int MPIC_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype, ...@@ -486,11 +486,11 @@ int MPIC_Sendrecv(const void *sendbuf, int sendcount, MPI_Datatype sendtype,
if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) { if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) {
*errflag = TRUE; *errflag = TRUE;
MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG); MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG);
} else { } else if (MPIX_ERR_REVOKED != MPIR_ERR_GET_CLASS(status->MPI_ERROR)) {
MPIU_Assert(status->MPI_TAG == recvtag); MPIU_Assert(status->MPI_TAG == recvtag);
} }
} }
fn_exit: fn_exit:
MPIU_DBG_MSG_S(PT2PT, TYPICAL, "OUT: errflag = %s", *errflag?"TRUE":"FALSE"); MPIU_DBG_MSG_S(PT2PT, TYPICAL, "OUT: errflag = %s", *errflag?"TRUE":"FALSE");
...@@ -602,7 +602,7 @@ int MPIC_Sendrecv_replace(void *buf, int count, MPI_Datatype datatype, ...@@ -602,7 +602,7 @@ int MPIC_Sendrecv_replace(void *buf, int count, MPI_Datatype datatype,
if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) { if (MPIR_TAG_CHECK_ERROR_BIT(status->MPI_TAG)) {
*errflag = TRUE; *errflag = TRUE;
MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG); MPIR_TAG_CLEAR_ERROR_BIT(status->MPI_TAG);
} else { } else if (MPIX_ERR_REVOKED != MPIR_ERR_GET_CLASS(status->MPI_ERROR)) {
MPIU_Assert(status->MPI_TAG == recvtag); MPIU_Assert(status->MPI_TAG == recvtag);
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment