1! { dg-do compile } 2 3module Test 4use ISO_C_BINDING 5 6contains 7 8subroutine Callback(arg) bind(C) 9 integer(C_INT) :: arg 10end subroutine Callback 11 12subroutine Check(proc) 13 type(C_FUNPTR) :: proc 14end subroutine Check 15 16end module Test 17 18 19program Main 20 use Test 21 type(C_FUNPTR) :: proc 22 23 call Check(C_FUNLOC(Callback)) 24end program Main 25