sessions: fix comm cleanup during mpi_finalize

hppritcha · hppritcha · commit 6341a8389011 · 2022-10-17T11:34:59.000-06:00
without this patch MPI_Session_finalize fails after a call to MPI_Finalize. Related to #10927 Signed-off-by: Howard Pritchard <howardp@lanl.gov>
diff --git a/ompi/communicator/comm_init.c b/ompi/communicator/comm_init.c
@@ -326,6 +326,8 @@ static int ompi_comm_finalize (void)
         OBJ_DESTRUCT( &ompi_mpi_comm_self );
         /* Shut down MPI_COMM_WORLD */
         OBJ_DESTRUCT( &ompi_mpi_comm_world );
+
+        ompi_comm_intrinsic_init = false;
     }
 
     /* Shut down the parent communicator, if it exists */

Original file line number	Diff line number	Diff line change
`@@ -326,6 +326,8 @@ static int ompi_comm_finalize (void)`
`326`	`326`	`OBJ_DESTRUCT( &ompi_mpi_comm_self );`
`327`	`327`	`/* Shut down MPI_COMM_WORLD */`
`328`	`328`	`OBJ_DESTRUCT( &ompi_mpi_comm_world );`
	`329`	`+`
	`330`	`+ ompi_comm_intrinsic_init = false;`
`329`	`331`	`}`
`330`	`332`
`331`	`333`	`/* Shut down the parent communicator, if it exists */`