8.54 C_F_PROCPOINTER — Преобразование указателя на функцию C в указатель на процедуру Fortran

Описание:

C_F_PROCPOINTER(CPTR, FPTR) Присвоить целевой объект указателя на функцию C CPTR указателю на процедуру Fortran FPTR.

Стандарт:

Fortran 2003 и более поздние версии

Класс:

Подпрограмма

Синтаксис:

CALL C_F_PROCPOINTER(cptr, fptr)

Аргументы:

`CPTR`	скаляр типа `C_FUNPTR`. Он `INTENT(IN)`.
`FPTR`	указатель на процедуру, совместимый с `cptr`. Он `INTENT(OUT)`.

Пример:

program main
  use iso_c_binding
  implicit none
  abstract interface
    function func(a)
      import :: c_float
      real(c_float), intent(in) :: a
      real(c_float) :: func
    end function
  end interface
  interface
     function getIterFunc() bind(c,name="getIterFunc")
       import :: c_funptr
       type(c_funptr) :: getIterFunc
     end function
  end interface
  type(c_funptr) :: cfunptr
  procedure(func), pointer :: myFunc
  cfunptr = getIterFunc()
  call c_f_procpointer(cfunptr, myFunc)
end program main

См. также:

C_LOC — Получение адреса объекта C, C_F_POINTER — Преобразование указателя C в указатель Fortran

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/C_005fF_005fPROCPOINTER.html