From fd7a301a0a756bd0808ef4440c5128c5d8f9d869 Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Mon, 8 Jul 2013 14:28:42 +0200 Subject: [PATCH 1/1] Fix MPI_Comm_Split, to increment reference counter of the group, as it is shared between processes --- src/smpi/smpi_comm.c | 1 + 1 file changed, 1 insertion(+) 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; } -- 2.20.1