This is a bug in the implementation in OpenMPI, with OpenMPI accidentally working.

That's because MPI_ANY_SOURCE is also -1 in OpenMPI.

diff --git a/src/smpi/colls/barrier-ompi.c b/src/smpi/colls/barrier-ompi.c
index ad5b748..39bdeb1 100644 (file)
--- 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);
     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 */
     right = ((rank+1)%size);
 
     if (rank > 0) { /* receive message from the left */