Temporarily implement MPI_Abi_get_version

Author: eschnett

src/api/api.jl

@@ -140,6 +140,13 @@ end
 
 include("generated_api.jl")
 
+# We define this function here temporarily. This call will fail for
+# 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)
+end
+
 for handle in [
     :MPI_Comm,
     :MPI_Datatype,

src/implementations.jl

@@ -70,6 +70,13 @@ function Get_version()
     VersionNumber(major[], minor[])
 end
 
+function Abi_get_version()
+    major = Ref{Cint}()
+    minor = Ref{Cint}()
+    API.MPI_Abi_get_version(major, minor)
+    VersionNumber(major[], minor[])
+end
+
 """
     MPI_VERSION :: VersionNumber