Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
missed one
authorAugustin Degomme <degomme@wasabi>
Thu, 26 Jul 2018 13:08:48 +0000 (15:08 +0200)
committerAugustin Degomme <degomme@wasabi>
Thu, 26 Jul 2018 13:08:48 +0000 (15:08 +0200)
src/smpi/internals/smpi_global.cpp

index de959a9..5e59e06 100644 (file)
@@ -437,7 +437,7 @@ static int smpi_run_entry_point(smpi_entry_point_type entry_point, std::vector<s
   for_rtl_init_ (&argc, argv);
 #elif SMPI_FLANG
   __io_set_argc(argc);
   for_rtl_init_ (&argc, argv);
 #elif SMPI_FLANG
   __io_set_argc(argc);
-  __io_set_argv(argvptr);
+  __io_set_argv(argv);
 #elif SMPI_GFORTRAN
   _gfortran_set_args(argc, argv);
 #endif 
 #elif SMPI_GFORTRAN
   _gfortran_set_args(argc, argv);
 #endif