From 5d924feccdf1e4fb220ad5c1dc784ad4d656d43d Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Fri, 5 Apr 2013 10:03:50 +0200 Subject: [PATCH] Fix bug with tracing of smpi internals and MPI_ANY_SOURCE --- src/smpi/smpi_base.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/smpi/smpi_base.c b/src/smpi/smpi_base.c index 837f1e3811..0960c41698 100644 --- a/src/smpi/smpi_base.c +++ b/src/smpi/smpi_base.c @@ -574,7 +574,7 @@ static void finish_wait(MPI_Request * request, MPI_Status * status) if (TRACE_smpi_view_internals()) { if(req->flags & RECV){ int rank = smpi_process_index(); - int src_traced = smpi_group_index(smpi_comm_group(req->comm), req->src); + int src_traced = smpi_group_index(smpi_comm_group(req->comm), req->src == MPI_ANY_SOURCE ? req->real_src : req->src); TRACE_smpi_recv(rank, src_traced, rank); } } -- 2.20.1