25 lines
335 B
Fortran
25 lines
335 B
Fortran
|
! { dg-do compile }
|
||
|
|
||
|
module Test
|
||
|
use ISO_C_BINDING
|
||
|
|
||
|
contains
|
||
|
|
||
|
subroutine Callback(arg) bind(C)
|
||
|
integer(C_INT) :: arg
|
||
|
end subroutine Callback
|
||
|
|
||
|
subroutine Check(proc)
|
||
|
type(C_FUNPTR) :: proc
|
||
|
end subroutine Check
|
||
|
|
||
|
end module Test
|
||
|
|
||
|
|
||
|
program Main
|
||
|
use Test
|
||
|
type(C_FUNPTR) :: proc
|
||
|
|
||
|
call Check(C_FUNLOC(Callback))
|
||
|
end program Main
|