Variables are not used with SMPI_FORT.

diff --git a/src/smpi/internals/smpi_global.cpp b/src/smpi/internals/smpi_global.cpp
index bd0b4e0..2285daf 100644 (file)
--- a/src/smpi/internals/smpi_global.cpp
+++ b/src/smpi/internals/smpi_global.cpp
@@ -432,8 +432,10 @@ static int smpi_run_entry_point(smpi_entry_point_type entry_point, std::vector<s
   for (int i = 0; i != argc; ++i)
     argv[i] = xbt_strdup(args[i].c_str());
   argv[argc] = nullptr;
   for (int i = 0; i != argc; ++i)
     argv[i] = xbt_strdup(args[i].c_str());
   argv[argc] = nullptr;

+#if !SMPI_IFORT

   char* name = argv[0];
   char* instance = argv[1];
   char* name = argv[0];
   char* instance = argv[1];

+#endif

   simgrid::smpi::ActorExt::init(&argc, &argv);
 #if SMPI_IFORT
   for_rtl_init_ (&argc, argv);
   simgrid::smpi::ActorExt::init(&argc, &argv);
 #if SMPI_IFORT
   for_rtl_init_ (&argc, argv);