Add a simgrid barrier at the end of MPI_Init call.

[simgrid.git] / src / smpi / internals / smpi_global.cpp

diff --git a/src/smpi/internals/smpi_global.cpp b/src/smpi/internals/smpi_global.cpp
index 719aac55d4a97b40da40a01300947a536f0df501..491428a0fb66b243888cd8aff9740ae6e3d52436 100644 (file)
--- a/src/smpi/internals/smpi_global.cpp
+++ b/src/smpi/internals/smpi_global.cpp
@@ -635,6 +635,7 @@ void smpi_mpi_init() {
   smpi_init_fortran_types();
   if(_smpi_init_sleep > 0)
     simgrid::s4u::this_actor::sleep_for(_smpi_init_sleep);
   smpi_init_fortran_types();
   if(_smpi_init_sleep > 0)
     simgrid::s4u::this_actor::sleep_for(_smpi_init_sleep);

+  smpi_deployment_startup_barrier(smpi_process()->get_instance_id());

 }
 
 void SMPI_thread_create() {
 }
 
 void SMPI_thread_create() {