Add MPI_Abi_get_{info|version}

mpi-forum · Jan 12, 2025 · 0077680 · 0077680
1 parent 5f3254d
commit 0077680
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/mpi.h b/mpi.h
@@ -582,6 +582,8 @@ extern MPI_F08_status* MPI_F08_STATUS_IGNORE;
 extern MPI_F08_status* MPI_F08_STATUSES_IGNORE;
 
 /* MPI functions */
+int MPI_Abi_get_info(MPI_Info *info);
+int MPI_Abi_get_version(int *abi_major, int *abi_minor);
 int MPI_Abort(MPI_Comm comm, int errorcode);
 int MPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win);
 int MPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win);
@@ -1250,6 +1252,8 @@ int MPI_T_source_get_num(int *num_sources);
 int MPI_T_source_get_timestamp(int source_index, MPI_Count *timestamp);
 
 /* PMPI functions */
+int PMPI_Abi_get_info(MPI_Info *info);
+int PMPI_Abi_get_version(int *abi_major, int *abi_minor);
 int PMPI_Abort(MPI_Comm comm, int errorcode);
 int PMPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win);
 int PMPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win);

diff --git a/mpistubs.c b/mpistubs.c
@@ -8,6 +8,8 @@ MPI_F08_status * MPI_F08_STATUS_IGNORE = NULL;
 MPI_F08_status * MPI_F08_STATUSES_IGNORE = NULL;
 
 /* MPI functions */
+int MPI_Abi_get_info(MPI_Info *info) { abort(); return 0; }
+int MPI_Abi_get_version(int *abi_major, int *abi_minor) { abort(); return 0; }
 int MPI_Abort(MPI_Comm comm, int errorcode) { abort(); return 0; }
 int MPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; }
 int MPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; }
@@ -676,6 +678,8 @@ int MPI_T_source_get_num(int *num_sources) { abort(); return 0; }
 int MPI_T_source_get_timestamp(int source_index, MPI_Count *timestamp) { abort(); return 0; }
 
 /* PMPI functions */
+int PMPI_Abi_get_info(MPI_Info *info) { abort(); return 0; }
+int PMPI_Abi_get_version(int *abi_major, int *abi_minor) { abort(); return 0; }
 int PMPI_Abort(MPI_Comm comm, int errorcode) { abort(); return 0; }
 int PMPI_Accumulate(const void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; }
 int PMPI_Accumulate_c(const void *origin_addr, MPI_Count origin_count, MPI_Datatype origin_datatype, int target_rank, MPI_Aint target_disp, MPI_Count target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Win win) { abort(); return 0; }