repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_decl_24.f90
blob
01cbb7c37c10e9951254005b630e8234770d5461
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