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-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_45.f90
blob
a506473ad95d3a766a14535d0f030d86dd5c0e62
1
! { dg-do compile }
2
!
3
! PR fortran/49397
4
!
5
! Valid per IR F08/0060 and F2008Corr2, C729
6
!
7
Program
m5
8
Print
*,
f
()
9
Contains
10
Subroutine
s
11
Procedure
(
Real
),
Pointer
::
p
12
Print
*,
g
()
13
p
=>
f
! (1)
14
Print
*,
p
()
15
p
=>
g
! (2)
16
Print
*,
p
()
17
End Subroutine
18
End Program
19
Function
f
()
20
f
=
1
21
End Function
22
Function
g
()
23
g
=
2
24
End Function