gcc/testsuite/gfortran.dg/proc_decl_24.f90

   1 ! { dg-do compile }
   2 !
   3 ! Contributed by James van Buskirk
   4 !
   5 ! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/44d572766bce0e6f/
   6
   7   use iso_c_binding
   8   implicit none
   9
  10   abstract interface
  11     subroutine all_subs(x,y) bind(C)
  12       use iso_c_binding
  13       real(c_float) :: x,y
  14     end subroutine all_subs
  15   end  interface
  16
  17   procedure(all_subs) :: sub
  18   type(C_FUNPTR) :: s
  19
  20   s = c_funloc (sub)
  21
  22 end