Prevent hierarchical partitioning from doubly freeing communicators

trilinos · Feb 9, 2024 · f5ba916 · f5ba916
1 parent b0ceb69
commit f5ba916
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/packages/zoltan/src/hier/hier.c b/packages/zoltan/src/hier/hier.c
@@ -1746,6 +1746,7 @@ int Zoltan_Hier(
       ZOLTAN_FREE(&hpp.adjproc);
       ZOLTAN_FREE(&hpp.geom_vec);
       MPI_Comm_free(&hpp.hier_comm);
+      hpp.hier_comm = MPI_COMM_NULL;
     }
 
     ierr = Zoltan_LB_Free_Part(&hier_import_gids, &hier_import_lids,