From cb66e3606db49f88d7fde5157a44fd6c5f2319ff Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Wed, 17 Jul 2013 09:54:00 +0200 Subject: [PATCH] fix behavior of waitany --- src/smpi/smpi_pmpi.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c index b753958433..59083e60e8 100644 --- a/src/smpi/smpi_pmpi.c +++ b/src/smpi/smpi_pmpi.c @@ -1549,7 +1549,7 @@ int PMPI_Waitany(int count, MPI_Request requests[], int *index, MPI_Status * sta if (is_wait_for_receive) { if(srcs[*index]==MPI_ANY_SOURCE) src_traced = (status!=MPI_STATUSES_IGNORE) ? - smpi_group_rank(smpi_comm_group(comms[*index]), status[*index].MPI_SOURCE) : + smpi_group_rank(smpi_comm_group(comms[*index]), status->MPI_SOURCE) : srcs[*index]; TRACE_smpi_recv(rank_traced, src_traced, dst_traced); } -- 2.20.1