X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/3080c6b0d097d6b3b7d5b3dda0592154ce438f64..99a42d5d15b6a07e3005056dcf707d3a41671743:/src/smpi/smpi_deployment.c

diff --git a/src/smpi/smpi_deployment.c b/src/smpi/smpi_deployment.c
index 33177ac333..30df611365 100644
--- a/src/smpi/smpi_deployment.c
+++ b/src/smpi/smpi_deployment.c
@@ -88,7 +88,8 @@ void smpi_deployment_cleanup_instances(){
   s_smpi_mpi_instance_t* instance = NULL;
   char *name = NULL;
   xbt_dict_foreach(smpi_instances, cursor, name, instance) {
-    while (smpi_group_unuse(smpi_comm_group(instance->comm_world)) > 0);
+    if(instance->comm_world!=MPI_COMM_NULL)
+      while (smpi_group_unuse(smpi_comm_group(instance->comm_world)) > 0);
     xbt_free(instance->comm_world);
     xbt_barrier_destroy(instance->finalization_barrier);
   }