gcc/testsuite/gfortran.dg/pr42119.f90

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