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
2017-12-08 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_10.f90
blob
dfe8ce9f0a5937f25b9ac9f11ba36eb36df56ffa
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
)
call
abort
()
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