MPI layer: print MPI library version as well as standard version (#3585)

charmplusplus · Mar 23, 2022 · 5b5234d · 5b5234d
1 parent e8302ec
commit 5b5234d
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/arch/mpi/machine.C b/src/arch/mpi/machine.C
@@ -1384,7 +1384,6 @@ extern int quietMode;
  */
 void LrtsInit(int *argc, char ***argv, int *numNodes, int *myNodeID) {
     int n,i;
-    int ver, subver;
     int provided;
     int thread_level;
     int myNID;
@@ -1443,11 +1442,14 @@ void LrtsInit(int *argc, char ***argv, int *numNodes, int *myNodeID) {
 
     myNID = *myNodeID;
 
-    MPI_Get_version(&ver, &subver);
     if(!CharmLibInterOperate) {
       if ((myNID == 0) && (!quietMode)) {
-        printf("Charm++> Running on MPI version: %d.%d\n", ver, subver);
-        printf("Charm++> level of thread support used: %s (desired: %s)\n", thread_level_tostring(_thread_provided), thread_level_tostring(thread_level));
+        int ver, subver, libver_len;
+        char libver[MPI_MAX_LIBRARY_VERSION_STRING];
+        MPI_Get_version(&ver, &subver);
+        MPI_Get_library_version(libver, &libver_len);
+        printf("Charm++> Running on MPI library: %s (MPI standard: %d.%d)\n", libver, ver, subver);
+        printf("Charm++> Level of thread support used: %s (desired: %s)\n", thread_level_tostring(_thread_provided), thread_level_tostring(thread_level));
       }
     }