#include <boost/tokenizer.hpp>
#include <boost/algorithm/string.hpp> /* trim_right / trim_left */
-#if defined(__GNUC__)
- extern "C" void _gfortran_set_args(int, char **);
+#if defined(__INTEL_COMPILER) || defined(__ICC)
+ extern "C" void for_rtl_init_ (int *, char **);
#elif defined(__FLANG)
extern "C" void __io_set_argc(int);
extern "C" void __io_set_argv(char **);
-#elif defined(__INTEL_COMPILER) || defined(__ICC)
- extern "C" void for_rtl_init_ (int *, char **);
+#elif defined(__GNUC__)
+ extern "C" void _gfortran_set_args(int, char **);
#endif
#ifndef RTLD_DEEPBIND
argv[argc] = nullptr;
char ** argvptr=argv.get();
simgrid::smpi::ActorExt::init(&argc, &argvptr);
-#if defined(__GNUC__)
- _gfortran_set_args(argc, argvptr);
+#if defined(__INTEL_COMPILER) || defined(__ICC)
+ for_rtl_init_ (&argc, argvptr);
#elif defined(__FLANG)
__io_set_argc(argc);
__io_set_argv(argvptr);
-#elif defined(__INTEL_COMPILER) || defined(__ICC)
- for_rtl_init_ (&argc, argvptr);
+#elif defined(__GNUC__)
+ _gfortran_set_args(argc, argvptr);
#endif
int res = entry_point(argc, argvptr);
if (res != 0){