Add MPI_F_XXX global variables for Fortran interoperability

mpiwg-abi · Mar 15, 2024 · 1f4c050 · 1f4c050
1 parent ca267a0
commit 1f4c050
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 8 deletions.
diff --git a/mpi.h b/mpi.h
@@ -577,10 +577,18 @@ typedef void (MPI_T_event_free_cb_function)(MPI_T_event_registration event_regis
 typedef void (MPI_T_event_dropped_cb_function)(MPI_Count count, MPI_T_event_registration event_registration, int source_index, MPI_T_cb_safety cb_safety, void *user_data);
 
 /* MPI global variables */
-extern MPI_Fint* MPI_F_STATUS_IGNORE;
-extern MPI_Fint* MPI_F_STATUSES_IGNORE;
-extern MPI_F08_status* MPI_F08_STATUS_IGNORE;
-extern MPI_F08_status* MPI_F08_STATUSES_IGNORE;
+extern void*                           MPIX_F_BOTTOM;
+extern void*                           MPIX_F_IN_PLACE;
+extern void*                           MPIX_F_BUFFER_AUTOMATIC;
+extern char**                          MPIX_F_ARGV_NULL;
+extern char***                         MPIX_F_ARGVS_NULL;
+extern MPI_Fint*                       MPIX_F_ERRCODES_IGNORE;
+extern MPI_Fint*                       MPI_F_STATUS_IGNORE;
+extern MPI_Fint*                       MPI_F_STATUSES_IGNORE;
+extern MPI_F08_status*                 MPI_F08_STATUS_IGNORE;
+extern MPI_F08_status*                 MPI_F08_STATUSES_IGNORE;
+extern MPI_Fint*                       MPIX_F_UNWEIGHTED;
+extern MPI_Fint*                       MPIX_F_WEIGHTS_EMPTY;
 
 /* MPI functions */
 int MPI_Abort(MPI_Comm comm, int errorcode);

diff --git a/mpistubs.c b/mpistubs.c
@@ -2,10 +2,18 @@
 #include "mpi.h"
 
 /* MPI global variables */
-MPI_Fint * MPI_F_STATUS_IGNORE = NULL;
-MPI_Fint * MPI_F_STATUSES_IGNORE = NULL;
-MPI_F08_status * MPI_F08_STATUS_IGNORE = NULL;
-MPI_F08_status * MPI_F08_STATUSES_IGNORE = NULL;
+void* MPIX_F_BOTTOM = NULL;
+void* MPIX_F_IN_PLACE = NULL;
+void* MPIX_F_BUFFER_AUTOMATIC = NULL;
+char** MPIX_F_ARGV_NULL = NULL;
+char*** MPIX_F_ARGVS_NULL = NULL;
+MPI_Fint* MPIX_F_ERRCODES_IGNORE = NULL;
+MPI_Fint* MPI_F_STATUS_IGNORE = NULL;
+MPI_Fint* MPI_F_STATUSES_IGNORE = NULL;
+MPI_F08_status* MPI_F08_STATUS_IGNORE = NULL;
+MPI_F08_status* MPI_F08_STATUSES_IGNORE = NULL;
+MPI_Fint* MPIX_F_UNWEIGHTED = NULL;
+MPI_Fint* MPIX_F_WEIGHTS_EMPTY = NULL;
 
 /* MPI functions */
 int MPI_Abort(MPI_Comm comm, int errorcode) { abort(); return 0; }