C_FUNLOC(3f)

DESCRIPTION
C_FUNLOC(x) determines the C address of the argument.

STANDARD
Fortran 2003 and later

CLASS
Inquiry function

SYNTAX
RESULT = C_FUNLOC(x)

ARGUMENTS

x Interoperable function or pointer to such function.

RETURN VALUE
The return value is of type C_FUNPTR and contains the C address of the argument.

EXAMPLE
          module x
            use iso_c_binding
            implicit none
          contains
            subroutine sub(a) bind(c)
              real(c_float) :: a
              a = sqrt(a)+5.0
            end subroutine sub
          end module x
          program main
            use iso_c_binding
            use x
            implicit none
            interface
              subroutine my_routine(p) bind(c,name='myC_func')
                import :: c_funptr
                type(c_funptr), intent(in) :: p
              end subroutine
            end interface
            call my_routine(c_funloc(sub))
          end program main

SEE ALSO
C_ASSOCIATED, C_LOC, C_F_POINTER, C_F_PROCPOINTER

AUTHOR

This information was taken from the GFortran documentation (https://gcc.gnu.org/onlinedocs/gcc-5.3.0/gfortran/) and converted to a manpage by AstroFloyd (http://astrofloyd.org).