! { 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 |