From a0787e399bf85fe993eaa520dff1fb98afa25ef4 Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Fri, 19 Apr 2019 15:40:05 +0200 Subject: [PATCH] Fix default MPI_Barrier. Mpich3 test comm_group_rand was sometimes failing. --- src/smpi/colls/barrier/barrier-ompi.cpp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/smpi/colls/barrier/barrier-ompi.cpp b/src/smpi/colls/barrier/barrier-ompi.cpp index 6d484902cc..500d37ad70 100644 --- a/src/smpi/colls/barrier/barrier-ompi.cpp +++ b/src/smpi/colls/barrier/barrier-ompi.cpp @@ -267,9 +267,7 @@ int Coll_barrier_ompi_basic_linear::barrier(MPI_Comm comm) requests = new MPI_Request[size]; for (i = 1; i < size; ++i) { - requests[i] = Request::irecv(NULL, 0, MPI_BYTE, MPI_ANY_SOURCE, - COLL_TAG_BARRIER, comm - ); + requests[i] = Request::irecv(NULL, 0, MPI_BYTE, i, COLL_TAG_BARRIER, comm); } Request::waitall( size-1, requests+1, MPI_STATUSES_IGNORE ); -- 2.20.1