From a83e3dd155df9679cc126d8baf773fbad558200f Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Thu, 20 Sep 2012 19:01:20 +0200 Subject: [PATCH] get the right sender for tracing, because it might not be known if MPI_ANY_SOURCE is used as sender --- src/smpi/smpi_pmpi.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c index 5079400097..561ad0d507 100644 --- a/src/smpi/smpi_pmpi.c +++ b/src/smpi/smpi_pmpi.c @@ -972,6 +972,8 @@ int PMPI_Recv(void *buf, int count, MPI_Datatype datatype, int src, int tag, retval = MPI_SUCCESS; } #ifdef HAVE_TRACING + //the src may not have been known at the beginning of the recv (MPI_ANY_SOURCE) + if(status!=MPI_STATUS_IGNORE)src_traced = smpi_group_rank(smpi_comm_group(comm), status->MPI_SOURCE); TRACE_smpi_ptp_out(rank, src_traced, rank, __FUNCTION__); TRACE_smpi_recv(rank, src_traced, rank); TRACE_smpi_computing_in(rank); -- 2.20.1