From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Mon, 8 Jul 2013 12:28:42 +0000 (+0200)
Subject: Fix MPI_Comm_Split, to increment reference counter of the group, as it is shared... 
X-Git-Tag: v3_9_90~192
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/fd7a301a0a756bd0808ef4440c5128c5d8f9d869?hp=5f30f31253629200892746ad9d086d03bbec48a5

Fix MPI_Comm_Split, to increment reference counter of the group, as it is shared between processes
---

diff --git a/src/smpi/smpi_comm.c b/src/smpi/smpi_comm.c
index dac6ac341e..db48e0fc14 100644
--- a/src/smpi/smpi_comm.c
+++ b/src/smpi/smpi_comm.c
@@ -153,6 +153,7 @@ MPI_Comm smpi_comm_split(MPI_Comm comm, int color, int key)
       smpi_mpi_recv(&group_out, 1, MPI_PTR, 0, system_tag, comm, MPI_STATUS_IGNORE);
     } /* otherwise, exit with group_out == NULL */
   }
+  if(group_out)smpi_group_use(group_out);
   return group_out ? smpi_comm_new(group_out) : MPI_COMM_NULL;
 }