From 20e8cc04fb47ce22470597f37aa8fbf86d280cc1 Mon Sep 17 00:00:00 2001
From: Augustin Degomme <degomme@idpann.imag.fr>
Date: Tue, 23 Oct 2012 10:13:47 +0200
Subject: [PATCH] do not free the group of MPI_COMM_WORLD when asked, because
 it is a global in smpi (it is freed in the smpi_global_destroy function)

---
 src/smpi/smpi_pmpi.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/smpi/smpi_pmpi.c b/src/smpi/smpi_pmpi.c
index 8baedaea3a..d34903c395 100644
--- a/src/smpi/smpi_pmpi.c
+++ b/src/smpi/smpi_pmpi.c
@@ -271,6 +271,7 @@ int PMPI_Group_free(MPI_Group * group)
   if (group == NULL) {
     retval = MPI_ERR_ARG;
   } else {
+    if(*group!= smpi_comm_group(MPI_COMM_WORLD))// do not free the group of the comm_world
     smpi_group_destroy(*group);
     *group = MPI_GROUP_NULL;
     retval = MPI_SUCCESS;
-- 
2.20.1