gcc/testsuite/gfortran.dg/c_funloc_tests.f03

   1 ! { dg-do run }
   2 ! This test case simply checks that c_funloc exists, accepts arguments of
   3 ! flavor FL_PROCEDURE, and returns the type c_funptr
   4 module c_funloc_tests
   5   use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc
   6
   7 contains
   8   recursive subroutine sub0() bind(c)
   9     type(c_funptr) :: my_c_funptr
  10
  11     my_c_funptr = c_funloc(sub0)
  12   end subroutine sub0
  13 end module c_funloc_tests
  14
  15 program driver
  16   use c_funloc_tests
  17
  18   call sub0()
  19 end program driver
  20
  21 ! { dg-final { cleanup-modules "c_funloc_tests" } }