gcc/testsuite/gfortran.dg/c_funloc_tests_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008ts -fdump-tree-original" }
   3 !
   4 ! Check relaxed TS29113 constraints for procedures
   5 ! and c_f_*pointer argument checking for c_ptr/c_funptr.
   6 !
   7
   8 use iso_c_binding
   9 implicit none
  10 type(c_funptr) :: cfp
  11
  12 integer, external :: noCsub
  13 procedure(integer), pointer :: fint
  14
  15 cfp = c_funloc (noCsub)
  16 call c_f_procpointer (cfp, fint)
  17 end
  18
  19 ! { dg-final { scan-tree-dump-times "cfp =\[^;\]+ nocsub;" 1 "original" } }
  20 ! { dg-final { scan-tree-dump-times "fint =\[^;\]+ cfp;" 1 "original" } }
  21 ! { dg-final { cleanup-tree-dump "original" } }
  22