Deallocate the group_list pointer on finalisation

Author: trdurrant

comex/src-mpi-mt/groups.c

@@ -461,6 +461,7 @@ void comex_group_finalize()
     COMEX_ASSERT(MPI_SUCCESS == status);
     status = MPI_Comm_free(&(g_state.comm));
     COMEX_ASSERT(MPI_SUCCESS == status);
+    group_list = NULL;
 }
 
 

comex/src-mpi-pr/groups.c

@@ -633,6 +633,7 @@ void comex_group_finalize()
     COMEX_ASSERT(MPI_SUCCESS == status);
     status = MPI_Comm_free(&(g_state.comm));
     COMEX_ASSERT(MPI_SUCCESS == status);
+    group_list = NULL;
 }
 
 

comex/src-mpi-pt/groups.c

@@ -497,6 +497,7 @@ void comex_group_finalize()
     COMEX_ASSERT(MPI_SUCCESS == status);
     status = MPI_Comm_free(&(g_state.comm));
     COMEX_ASSERT(MPI_SUCCESS == status);
+    group_list = NULL;
 }
 
 

comex/src-ofa/groups.c

@@ -335,4 +335,5 @@ void comex_group_finalize()
         comex_igroup_finalize(previous_group_list_item);
         free(previous_group_list_item);
     }
+    group_list = NULL;
 }