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
RISC-V: Regenerate opt urls.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pointer_intent_8.f90
blob
6bfbc5c37cc74609c1db848f894a96ce366af1e8
1
! { dg-do run }
2
! PR 85797 - this used to get wrong results.
3
4
5
PROGRAM
testfortran2
6
IMPLICIT NONE
7
8
INTEGER
,
DIMENSION
(
10
),
TARGET
::
i4array
9
10
i4array
= (/
1
,
2
,
3
,
4
,
5
,
6
,
7
,
8
,
9
,
10
/)
11
12
call
InRef
(
i4array
)
13
14
CONTAINS
15
16
subroutine
InRef
(
v
)
17
INTEGER
,
DIMENSION
(:),
POINTER
,
INTENT
(
in
) ::
v
18
INTEGER
::
i
19
if
(
any
(
v
/= [(
i
,
i
=
1
,
10
)]))
stop
1
20
END subroutine
21
22
END