blob: 01cbb7c37c10e9951254005b630e8234770d5461 (
plain)
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
|