#1014: runtime: check MPI_Comm for use during component startup

DARMA-tasking · Sep 22, 2020 · fa1e6a1 · fa1e6a1
1 parent 38d97fa
commit fa1e6a1
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/vt/runtime/runtime.cc b/src/vt/runtime/runtime.cc
@@ -456,7 +456,15 @@ bool Runtime::finalize(bool const force_now, bool const disable_sig) {
 }
 
 void Runtime::sync() {
-  MPI_Barrier(communicator_);
+  MPI_Comm comm = communicator_;
+  if (comm == MPI_COMM_NULL and theContext != nullptr) {
+    comm = theContext->getComm();
+  }
+  if (comm == MPI_COMM_NULL) {
+    vtAbort("Trying to sync runtime while the communicator is not available");
+  } else {
+    MPI_Barrier(comm);
+  }
 }
 
 void Runtime::runScheduler() {