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