ABI: multiple fixes

Many fixes and improvements contributed by dalcinl.

Add fortran support functions and some other functions
missing from initial work.

Return to generating converter functions as part of the build out of the abi variants.

Signed-off-by: Howard Pritchard <howardp@lanl.gov>
Co-authored-by: Lisandro Dalcin <dalcinl@gmail.com>

Author: hppritcha

.gitignore

@@ -537,7 +537,11 @@ docs/man
 ompi/mpi/c/*_generated*.c
 ompi/mpi/c/standard_*.c
 ompi/mpi/c/abi.h
+ompi/mpi/c/abi_get_info.c
+ompi/mpi/c/abi_converters.h
+ompi/mpi/c/abi_converters.c
 ompi/mpi/c/standard_abi
+ompi/mpi/tool/*_generated*.c
 
 # Generated Fortran Bindings
 ompi/mpi/fortran/use-mpi-f08/*_generated.F90

VERSION

@@ -20,8 +20,8 @@ minor=1
 release=0
 
 # MPI Standard Compliance Level
-mpi_standard_version=3
-mpi_standard_subversion=1
+mpi_standard_version=5
+mpi_standard_subversion=0
 
 # OMPI required dependency versions.
 # List in x.y.z format.
@@ -92,6 +92,14 @@ date="Unreleased developer copy"
 # but they are "public" within the OMPI code base and select 3rd party
 # software packages.
 
+# The current and age values of the libmpi_abi shared library are
+# implicitly determined by the MPI ABI definition of the
+# version of the MPI specification supported by this Open MPI release.
+# The MPI ABI is intended not to break backward compatibility,
+# so presumably the current and age values will move in lock step.
+# We assume we have flexibility with the revision number as
+# bugs are fixed, etc.
+
 # Version numbers are described in the Libtool current:revision:age
 # format.
 
@@ -100,6 +108,7 @@ libmpi_mpifh_so_version=0:0:0
 libmpi_usempi_tkr_so_version=0:0:0
 libmpi_usempi_ignore_tkr_so_version=0:0:0
 libmpi_usempif08_so_version=0:0:0
+libmpi_abi_so_version=0:0:0
 libopen_pal_so_version=0:0:0
 libmpi_java_so_version=0:0:0
 liboshmem_so_version=0:0:0

config/ompi_fortran_check_logical_array.m4

@@ -11,6 +11,8 @@ dnl                         All rights reserved.
 dnl Copyright (c) 2011-2012 Cisco Systems, Inc.  All rights reserved.
 dnl Copyright (c) 2015      Research Organization for Information Science
 dnl                         and Technology (RIST). All rights reserved.
+dnl Copyright (c) 2025      Triad National Security, LLC. All rights
+dnl                         reserved.
 dnl $COPYRIGHT$
 dnl
 dnl Additional copyrights may follow
@@ -64,7 +66,7 @@ void ompi_check_f(ompi_fortran_logical_t * logical)
     FILE *f=fopen("conftestval", "w");
     if (!f) exit(1);
 
-    if (logical[[0]] == 0 &&
+    if (logical[[0]] == $ompi_cv_fortran_false_value &&
         logical[[1]] == $ompi_cv_fortran_true_value)
       result = 1;
     fprintf(f, "%d\n", result);

config/ompi_fortran_get_value_true.m4

@@ -11,6 +11,8 @@ dnl                         All rights reserved.
 dnl Copyright (c) 2011-2012 Cisco Systems, Inc.  All rights reserved.
 dnl Copyright (c) 2015      Research Organization for Information Science
 dnl                         and Technology (RIST). All rights reserved.
+dnl Copyright (c) 2025      Triad National Security, LLC. All rights
+dnl                         reserved.
 dnl $COPYRIGHT$
 dnl
 dnl Additional copyrights may follow
@@ -27,16 +29,22 @@ AC_DEFUN([OMPI_FORTRAN_GET_VALUE_TRUE],[
     if test "$ompi_cv_fortran_true_value" = "0" ; then
         unset ompi_cv_fortran_true_value
     fi
+    if test "$ompi_cv_fortran_false_value" = "0" ; then
+        unset ompi_cv_fortran_false_value
+    fi
 
     AS_VAR_PUSHDEF([fortran_true_var],
                    [ompi_cv_fortran_true_value])
+    AS_VAR_PUSHDEF([fortran_false_var],
+                   [ompi_cv_fortran_false_value])
 
     AC_CACHE_CHECK([Fortran value for .TRUE. logical type],
         fortran_true_var,
         [if test "$1" = "none" || \
             test $OMPI_TRY_FORTRAN_BINDINGS -eq $OMPI_FORTRAN_NO_BINDINGS || \
             test $ompi_fortran_happy -eq 0 ; then
-             value=77
+             tvalue=77
+             fvalue=77
          else
              #
              # C module
@@ -98,6 +106,14 @@ EOF
       CALL ompi_print(value)
       end
 EOF
+             cat > conftestf2.f <<EOF
+      program main
+      logical value
+      value=.FALSE.
+      CALL ompi_print(value)
+      end
+EOF
+
 
              #
              # Try the compilation and run.
@@ -114,11 +130,40 @@ EOF
              AS_IF([test "$cross_compiling" = "yes"],
                  [AC_MSG_ERROR([Can not determine value of .TRUE. when cross-compiling])],
                  [OPAL_LOG_COMMAND([./conftest],
-                     [value=`sed 's/  *//' conftestval`],
+                     [tvalue=`sed 's/  *//' conftestval`],
                      [AC_MSG_ERROR([Could not determine value of Fotran .TRUE..  Aborting.])])])
+
+             cat > conftestf.f <<EOF
+      program main
+      logical value
+      value=.FALSE.
+      CALL ompi_print(value)
+      end
+EOF
+
+             #
+             # Try the compilation and run.
+             #
+             OPAL_LOG_COMMAND([$CC $CFLAGS -I. -c conftest.c],
+                 [OPAL_LOG_COMMAND([$FC $FCFLAGS -o conftest conftest.o conftestf.f $LDFLAGS $LIBS],
+                      [happy=1], [happy=0])],
+                 [happy=0])
+
+             AS_IF([test $happy -eq 0 && test $ompi_fortran_happy -eq 1],
+                          [AC_MSG_ERROR([Could not compile Fortran .FALSE. test.  Aborting.])
+                          ])
+
+             AS_IF([test "$cross_compiling" = "yes"],
+                 [AC_MSG_ERROR([Can not determine value of .FALSE. when cross-compiling])],
+                 [OPAL_LOG_COMMAND([./conftest],
+                     [fvalue=`sed 's/  *//' conftestval`],
+                     [AC_MSG_ERROR([Could not determine value of Fotran .FALSE..  Aborting.])])])
          fi
-         AS_VAR_SET(fortran_true_var, [$value])
-         unset value
+         AS_VAR_SET(fortran_true_var, [$tvalue])
+         unset tvalue
+         AS_VAR_SET(fortran_false_var, [$fvalue])
+         unset fvalue
+
         ])
 
     AS_VAR_COPY([ompi_fortran_true_value], [fortran_true_var])
@@ -127,6 +172,13 @@ EOF
         [Fortran value for LOGICAL .TRUE. value])
     AS_VAR_POPDEF([fortran_true_var])
 
+   AS_VAR_COPY([ompi_fortran_false_value], [fortran_false_var])
+    AC_DEFINE_UNQUOTED([OMPI_FORTRAN_VALUE_FALSE],
+        [$ompi_fortran_false_value],
+        [Fortran value for LOGICAL .FALSE. value])
+    AS_VAR_POPDEF([fortran_false_var])
+
+
     unset happy ompi_print_logical_fn
     rm -rf conftest*
 ])dnl

configure.ac

@@ -147,6 +147,7 @@ OPAL_SAVE_VERSION([OPAL], [Open Portable Access Layer], [$srcdir/VERSION],
 
 m4_ifdef([project_ompi],
          [AC_SUBST(libmpi_so_version)
+          AC_SUBST(libmpi_abi_so_version)
           AC_SUBST(libmpi_mpifh_so_version)
           AC_SUBST(libmpi_usempi_tkr_so_version)
           AC_SUBST(libmpi_usempi_ignore_tkr_so_version)

docs/Makefile.am

@@ -87,6 +87,12 @@ OMPI_MAN1 = \
         opal_wrapper.1
 
 OMPI_MAN3 = \
+        MPI_Abi_get_fortran_booleans.3 \
+        MPI_Abi_get_fortran_info.3 \
+        MPI_Abi_get_info.3 \
+        MPI_Abi_get_version.3 \
+        MPI_Abi_set_fortran_booleans.3 \
+        MPI_Abi_set_fortran_info.3 \
         MPI_Abort.3 \
         MPI_Accumulate.3 \
         MPI_Add_error_class.3 \
@@ -151,6 +157,7 @@ OMPI_MAN3 = \
         MPI_Comm_flush_buffer.3 \
         MPI_Comm_free.3 \
         MPI_Comm_free_keyval.3 \
+        MPI_Comm_fromint.3 \
         MPI_Comm_get_attr.3 \
         MPI_Comm_get_errhandler.3 \
         MPI_Comm_get_info.3 \
@@ -174,6 +181,7 @@ OMPI_MAN3 = \
         MPI_Comm_split.3 \
         MPI_Comm_split_type.3 \
         MPI_Comm_test_inter.3 \
+        MPI_Comm_toint.3 \
         MPI_Compare_and_swap.3 \
         MPI_Dims_create.3 \
         MPI_Dist_graph_create.3 \
@@ -182,8 +190,10 @@ OMPI_MAN3 = \
         MPI_Dist_graph_neighbors_count.3 \
         MPI_Errhandler_create.3 \
         MPI_Errhandler_free.3 \
+        MPI_Errhandler_fromint.3 \
         MPI_Errhandler_get.3 \
         MPI_Errhandler_set.3 \
+        MPI_Errhandler_toint.3 \
         MPI_Error_class.3 \
         MPI_Error_string.3 \
         MPI_Errors.3 \
@@ -196,6 +206,7 @@ OMPI_MAN3 = \
         MPI_File_create_errhandler.3 \
         MPI_File_delete.3 \
         MPI_File_f2c.3 \
+        MPI_File_fromint.3 \
         MPI_File_get_amode.3 \
         MPI_File_get_atomicity.3 \
         MPI_File_get_byte_offset.3 \
@@ -239,6 +250,7 @@ OMPI_MAN3 = \
         MPI_File_set_size.3 \
         MPI_File_set_view.3 \
         MPI_File_sync.3 \
+        MPI_File_toint.3 \
         MPI_File_write.3 \
         MPI_File_write_all.3 \
         MPI_File_write_all_begin.3 \
@@ -282,13 +294,15 @@ OMPI_MAN3 = \
         MPI_Group_excl.3 \
         MPI_Group_f2c.3 \
         MPI_Group_free.3 \
+        MPI_Group_fromint.3 \
         MPI_Group_from_session_pset.3 \
         MPI_Group_incl.3 \
         MPI_Group_intersection.3 \
         MPI_Group_range_excl.3 \
         MPI_Group_range_incl.3 \
         MPI_Group_rank.3 \
         MPI_Group_size.3 \
+        MPI_Group_toint.3 \
         MPI_Group_translate_ranks.3 \
         MPI_Group_union.3 \
         MPI_Iallgather.3 \
@@ -317,12 +331,14 @@ OMPI_MAN3 = \
         MPI_Info_env.3 \
         MPI_Info_f2c.3 \
         MPI_Info_free.3 \
+        MPI_Info_fromint.3 \
         MPI_Info_get.3 \
         MPI_Info_get_nkeys.3 \
         MPI_Info_get_nthkey.3 \
         MPI_Info_get_string.3 \
         MPI_Info_get_valuelen.3 \
         MPI_Info_set.3 \
+        MPI_Info_toint.3 \
         MPI_Init.3 \
         MPI_Initialized.3 \
         MPI_Init_thread.3 \
@@ -348,6 +364,8 @@ OMPI_MAN3 = \
         MPI_Lookup_name.3 \
         MPI_Message_c2f.3 \
         MPI_Message_f2c.3 \
+        MPI_Message_fromint.3 \
+        MPI_Message_toint.3 \
         MPI_Mprobe.3 \
         MPI_Mrecv.3 \
         MPI_Neighbor_allgather.3 \
@@ -366,6 +384,8 @@ OMPI_MAN3 = \
         MPI_Open_port.3 \
         MPI_Op_f2c.3 \
         MPI_Op_free.3 \
+        MPI_Op_fromint.3 \
+        MPI_Op_toint.3 \
         MPI_Pack.3 \
         MPI_Pack_external.3 \
         MPI_Pack_external_size.3 \
@@ -398,10 +418,12 @@ OMPI_MAN3 = \
         MPI_Request_c2f.3 \
         MPI_Request_f2c.3 \
         MPI_Request_free.3 \
+        MPI_Request_fromint.3 \
         MPI_Request_get_status.3 \
         MPI_Request_get_status_all.3 \
         MPI_Request_get_status_any.3 \
         MPI_Request_get_status_some.3 \
+        MPI_Request_toint.3 \
         MPI_Rget.3 \
         MPI_Rget_accumulate.3 \
         MPI_Rput.3 \
@@ -423,12 +445,14 @@ OMPI_MAN3 = \
         MPI_Session_f2c.3 \
         MPI_Session_finalize.3 \
         MPI_Session_flush_buffer.3 \
+        MPI_Session_fromint.3 \
         MPI_Session_get_info.3 \
         MPI_Session_get_nth_pset.3 \
         MPI_Session_get_num_psets.3 \
         MPI_Session_get_pset_info.3 \
         MPI_Session_iflush_buffer.3 \
         MPI_Session_init.3 \
+        MPI_Session_toint.3 \
         MPI_Sizeof.3 \
         MPI_Ssend.3 \
         MPI_Ssend_init.3 \
@@ -440,6 +464,7 @@ OMPI_MAN3 = \
         MPI_Status_f082f.3 \
         MPI_Status_f2c.3 \
         MPI_Status_f2f08.3 \
+        MPI_Status_fromint.3 \
         MPI_Status_get_error.3 \
         MPI_Status_get_source.3 \
         MPI_Status_get_tag.3 \
@@ -449,6 +474,7 @@ OMPI_MAN3 = \
         MPI_Status_set_error.3 \
         MPI_Status_set_source.3 \
         MPI_Status_set_tag.3 \
+        MPI_Status_toint.3 \
         MPI_T.3 \
         MPI_T_category_changed.3 \
         MPI_T_category_get_categories.3 \
@@ -525,6 +551,7 @@ OMPI_MAN3 = \
         MPI_Type_f2c.3 \
         MPI_Type_free.3 \
         MPI_Type_free_keyval.3 \
+        MPI_Type_fromint.3 \
         MPI_Type_get_attr.3 \
         MPI_Type_get_contents.3 \
         MPI_Type_get_envelope.3 \
@@ -544,6 +571,7 @@ OMPI_MAN3 = \
         MPI_Type_size.3 \
         MPI_Type_size_x.3 \
         MPI_Type_struct.3 \
+        MPI_Type_toint.3 \
         MPI_Type_ub.3 \
         MPI_Type_vector.3 \
         MPI_Unpack.3 \
@@ -573,6 +601,7 @@ OMPI_MAN3 = \
         MPI_Win_flush_local_all.3 \
         MPI_Win_free.3 \
         MPI_Win_free_keyval.3 \
+        MPI_Win_fromint.3 \
         MPI_Win_get_attr.3 \
         MPI_Win_get_errhandler.3 \
         MPI_Win_get_group.3 \
@@ -589,6 +618,7 @@ OMPI_MAN3 = \
         MPI_Win_start.3 \
         MPI_Win_sync.3 \
         MPI_Win_test.3 \
+        MPI_Win_toint.3 \
         MPI_Win_unlock.3 \
         MPI_Win_unlock_all.3 \
         MPI_Win_wait.3 \

docs/building-apps/index.rst

@@ -14,8 +14,10 @@ Open MPI "wrapper" compilers.
    removed-mpi-constructs
    deprecation-warnings
    building-static-apps
+   mpi-abi
 
-.. warning:: Open MPI does not attempt to interoperate with other MPI
+.. warning:: Except when using the MPI ABI compiler wrapper (mpicc_abi),
+             Open MPI does not attempt to interoperate with other MPI
              implementations, nor executables that were compiled for
              them.  MPI applications need to be compiled and linked
              with Open MPI in order to run under Open MPI.