MPI_Abi_get_version: New function

Author: eschnett

src/api/api.jl

@@ -144,7 +144,13 @@ include("generated_api.jl")
 # MPI <5. Once we regenerate the API for MPI 5.0, this should go away
 # again.
 function MPI_Abi_get_version(major, minor)
-    @mpicall ccall((:MPI_Abi_get_version, libmpi), Cint, (Ptr{Cint}, Ptr{Cint}), major, minor)
+    try
+        @mpicall ccall((:MPI_Abi_get_version, libmpi), Cint, (Ptr{Cint}, Ptr{Cint}), major, minor)
+    catch
+        # This is an older MPI implementation which does not support the MPI ABI.
+        major[] = -1
+        minor[] = -1
+    end
 end
 
 for handle in [

src/implementations.jl

@@ -70,22 +70,35 @@ function Get_version()
     VersionNumber(major[], minor[])
 end
 
+"""
+    MPI_VERSION :: VersionNumber
+
+The supported version of the MPI standard.
+
+# External links
+$(_doc_external("MPI_Get_version"))
+"""
+const MPI_VERSION = Get_version()
+
+
 function Abi_get_version()
     major = Ref{Cint}()
     minor = Ref{Cint}()
     API.MPI_Abi_get_version(major, minor)
+    major[] == -1 && return nothing
     VersionNumber(major[], minor[])
 end
 
 """
-    MPI_VERSION :: VersionNumber
+    MPI_ABI_VERSION :: Union{Nothing,VersionNumber}
 
-The supported version of the MPI standard.
+The supported version of the MPI ABI standard.
 
 # External links
-$(_doc_external("MPI_Get_version"))
+$(_doc_external("MPI_Abi_get_version"))
 """
-const MPI_VERSION = Get_version()
+const MPI_ABI_VERSION = Abi_get_version()
+
 
 using PkgVersion
 """
@@ -122,6 +135,7 @@ function versioninfo(io::IO=stdout)
     println(io, "  libmpi:  ", API.libmpi)
     println(io, "  libmpi dlpath:  ", Libdl.dlpath(API.libmpi))
     println(io, "  MPI version:  ", Get_version())
+    println(io, "  MPI ABI version:  ", Abi_get_version())
     println(io, "  Library version:  ")
     for line in split(Get_library_version(), '\n')
         println(io, "    ", line)