From b108a4b307246fd04e52827319b4a522e414c51f Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Tue, 18 Jun 2013 14:02:26 +0200 Subject: [PATCH] This is a bug in the implementation in OpenMPI, with OpenMPI accidentally working. That's because MPI_ANY_SOURCE is also -1 in OpenMPI. --- src/smpi/colls/barrier-ompi.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/smpi/colls/barrier-ompi.c b/src/smpi/colls/barrier-ompi.c index ad5b748042..39bdeb101c 100644 --- a/src/smpi/colls/barrier-ompi.c +++ b/src/smpi/colls/barrier-ompi.c @@ -52,8 +52,8 @@ int smpi_coll_tuned_barrier_ompi_doublering(MPI_Comm comm size = smpi_comm_size(comm); XBT_DEBUG("ompi_coll_tuned_barrier_ompi_doublering rank %d", rank); - - left = ((rank-1)%size); + + left = ((rank-1+size)%size); right = ((rank+1)%size); if (rank > 0) { /* receive message from the left */ -- 2.20.1