gcc/testsuite/gfortran.dg/proc_decl_24.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

! { dg-do compile }
!
! Contributed by James van Buskirk
!
! http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/44d572766bce0e6f/

  use iso_c_binding
  implicit none

  abstract interface
    subroutine all_subs(x,y) bind(C)
      use iso_c_binding
      real(c_float) :: x,y
    end subroutine all_subs
  end  interface

  procedure(all_subs) :: sub
  type(C_FUNPTR) :: s

  s = c_funloc (sub)

end