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
PR inline-asm/84742
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_10.f90
blob
3400379b3154238e755e71d3d2f6595a48b3caa9
1
! { dg-do run }
2
!
3
! PR fortran/37253
4
!
5
! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
6
7
module
myMod
8
9
CONTAINS
10
11
real function
proc3
(
arg1
)
12
integer
::
arg1
13
proc3
=
arg1
+
7
14
end function
proc3
15
16
subroutine
proc4
(
arg1
)
17
procedure
(
real
),
pointer
::
arg1
18
if
(
arg1
(
0
)/=
7
)
STOP
1
19
end subroutine
proc4
20
21
end module
myMod
22
23
program
myProg
24
use
myMod
25
PROCEDURE
(
real
),
POINTER
::
p
=>
NULL
()
26
p
=>
proc3
27
call
proc4
(
p
)
28
end program
myProg
29