From dadb783835c77b9af0262d3a93a0815538b17a96 Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Mon, 18 Feb 2013 11:16:53 +0100 Subject: [PATCH] Also set MPI_ERROR in smpi_empty_status. --- src/smpi/smpi_base.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c index b545e49192..823a5eb253 100644 --- a/src/smpi/smpi_base.c +++ b/src/smpi/smpi_base.c @@ -234,11 +234,13 @@ static MPI_Request build_request(void *buf, int count, } -void smpi_empty_status(MPI_Status * status) { +void smpi_empty_status(MPI_Status * status) +{ if(status != MPI_STATUS_IGNORE) { - status->MPI_SOURCE=MPI_ANY_SOURCE; - status->MPI_TAG=MPI_ANY_TAG; - status->count=0; + status->MPI_SOURCE = MPI_ANY_SOURCE; + status->MPI_TAG = MPI_ANY_TAG; + status->MPI_ERROR = MPI_SUCCESS; + status->count=0; } } -- 2.30.2