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
nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
ptr-func-1.f90
blob
3d24cd5e37e1e7b1b23532ec9e52310c573d7804
1
! { dg-do compile }
2
! { dg-options "-std=f2008 " }
3
!
4
! PR fortran/46100
5
!
6
! Pointer function as definable actual argument
7
! - a Fortran 2008 feature
8
!
9
integer
,
target
::
tgt
10
call
one
(
two
())
11
if
(
tgt
/=
774
)
STOP
1
12
contains
13
subroutine
one
(
x
)
14
integer
,
intent
(
inout
) ::
x
15
if
(
x
/=
34
)
STOP
2
16
x
=
774
17
end subroutine
one
18
function
two
()
19
integer
,
pointer
::
two
20
two
=>
tgt
21
two
=
34
22
end function
two
23
end
24