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
./:
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
host_dummy_index_1.f90
blob
cc045ff96bc98e17aa3bb734219cbc65331c6d3f
1
! { dg-do run }
2
! Tests the fix for PR23446. Based on PR example.
3
!
4
! Contributed by Paul Thomas <pault@gcc.gnu.org>
5
!
6
PROGRAM
TST
7
INTEGER
IMAX
8
INTEGER
::
A
(
4
) =
1
9
IMAX
=
2
10
11
CALL
S
(
A
)
12
CALL
T
(
A
)
13
CALL
U
(
A
)
14
if
(
ALL
(
A
.
ne
.(/
2
,
2
,
3
,
4
/)))
CALL
ABORT
()
15
16
CONTAINS
17
SUBROUTINE
S
(
A
)
18
INTEGER
A
(
IMAX
)
19
a
=
2
20
END SUBROUTINE
S
21
SUBROUTINE
T
(
A
)
22
INTEGER
A
(
3
:
IMAX
+
4
)
23
A
(
5
:
IMAX
+
4
) =
3
24
END SUBROUTINE
T
25
SUBROUTINE
U
(
A
)
26
INTEGER
A
(
2
,
IMAX
)
27
A
(
2
,
2
) =
4
28
END SUBROUTINE
U
29
ENDPROGRAM TST