..
  Copyright 1988-2022 Free Software Foundation, Inc.
  This is part of the GCC manual.
  For copying conditions, see the copyright.rst file.

.. index:: C_F_PROCPOINTER, pointer, C address of pointers

.. _c_f_procpointer:

C_F_PROCPOINTER --- Convert C into Fortran procedure pointer
************************************************************

.. function:: C_F_PROCPOINTER(CPTR, FPTR)

  ``C_F_PROCPOINTER(CPTR, FPTR)`` Assign the target of the C function pointer
  :samp:`{CPTR}` to the Fortran procedure pointer :samp:`{FPTR}`.

  :param CPTR:
    scalar of the type ``C_FUNPTR``. It is
    ``INTENT(IN)``.

  :param FPTR:
    procedure pointer interoperable with :samp:`{cptr}`. It is
    ``INTENT(OUT)``.

  Standard:
    Fortran 2003 and later

  Class:
    Subroutine

  Syntax:
    .. code-block:: fortran

      CALL C_F_PROCPOINTER(cptr, fptr)

  Example:
    .. code-block:: fortran

      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

  See also:
    :ref:`C_LOC`,
    :ref:`C_F_POINTER`