Fix MPI method: wait for Isend() so that Cray MPICH will actually fre…

…e communicator in MPI_Comm_free()
ornladios · Feb 21, 2018 · 415484c · 415484c
1 parent 607e5a4
commit 415484c
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/write/adios_mpi.c b/src/write/adios_mpi.c
@@ -546,6 +546,11 @@ int adios_mpi_open (struct adios_file_struct * fd
                                     ,&md->fh
                                     );
             }
+            // Wait for Isend to complete before otherwise the request variable may disappear from the stack
+            if (next != -1)
+            {
+                MPI_Wait(&md->req, &md->status);
+            }
 
             if (err != MPI_SUCCESS)
             {
@@ -608,6 +613,11 @@ int adios_mpi_open (struct adios_file_struct * fd
                                     ,&md->fh
                                     );
             }
+            // Wait for Isend to complete before otherwise the request variable may disappear from the stack
+            if (next != -1)
+            {
+                MPI_Wait(&md->req, &md->status);
+            }
 
             if (err != MPI_SUCCESS)
             {
@@ -799,6 +809,11 @@ int adios_mpi_open (struct adios_file_struct * fd
                                     ,&md->fh
                                     );
             }
+            // Wait for Isend to complete before otherwise the request variable may disappear from the stack
+            if (next != -1)
+            {
+                MPI_Wait(&md->req, &md->status);
+            }
 
             if (err != MPI_SUCCESS)
             {