---

Manual Reference Pages  - c_funloc (3)

---

NAME

c_funloc(3f) - [FORTRAN:INTRINSIC:ISO_C_BINDING] Obtain the C address of a procedure

SYNTAX

result = c_funloc(x)

DESCRIPTION

c_funloc(x) determines the C address of the argument.

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

Sample program:

    ! program demo_c_funloc and module
    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 demo_c_funloc
    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 demo_c_funloc

STANDARD

[[Fortran 2003]] and later

CLASS

[[Inquiry function]]

SEE ALSO

c_associated(3), c_loc(3), c_f_pointer(3), c_f_procpointer(3), iso_c_binding(3)

---

c_funloc (3)

March 11, 2021

Generated by manServer 1.08 from 0a3f4dae-3589-4a3a-a35f-da8aa106bda2 using man macros.