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
|