beach_kernel_get_abi_version Function

  integer(c_int) function beach_kernel_get_abi_version(major_ptr, minor_ptr) &
    bind(C, name='beach_kernel_get_abi_version') result(status)
    type(c_ptr), value :: major_ptr, minor_ptr
    integer(c_int), pointer :: major, minor

    if (.not. c_associated(major_ptr) .or. .not. c_associated(minor_ptr)) then
      status = beach_kernel_invalid_argument
      return
    end if
    call c_f_pointer(major_ptr, major)
    call c_f_pointer(minor_ptr, minor)
    major = beach_kernel_abi_major
    minor = beach_kernel_abi_minor
    status = beach_kernel_ok
  end function beach_kernel_get_abi_version