From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 23 Oct 2012 08:01:39 +0000 (+0200)
Subject: do not free the group when freeing the comm, there is a separate function for that... 
X-Git-Tag: v3_8~21^2~4
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/9de84657cd18f11c118ce065d36cf8f01e62303c

do not free the group when freeing the comm, there is a separate function for that, which may be called
---

diff --git a/src/smpi/smpi_comm.c b/src/smpi/smpi_comm.c
index c189c4d569..d49b858293 100644
--- a/src/smpi/smpi_comm.c
+++ b/src/smpi/smpi_comm.c
@@ -48,7 +48,6 @@ MPI_Comm smpi_comm_new(MPI_Group group)
 
 void smpi_comm_destroy(MPI_Comm comm)
 {
-  smpi_group_destroy(comm->group);
   xbt_free(comm);
 }
 
diff --git a/src/smpi/smpi_global.c b/src/smpi/smpi_global.c
index ef8b782f63..8c02fb48b3 100644
--- a/src/smpi/smpi_global.c
+++ b/src/smpi/smpi_global.c
@@ -263,6 +263,7 @@ void smpi_global_destroy(void)
   int i;
 
   smpi_bench_destroy();
+  smpi_group_destroy(smpi_comm_group(MPI_COMM_WORLD));
   smpi_comm_destroy(MPI_COMM_WORLD);
   MPI_COMM_WORLD = MPI_COMM_NULL;
   for (i = 0; i < count; i++) {