Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
nestcons.f90
blob: 6fd801da2e0e73963129bbb75739f9421a420227 [
file
] [
log
] [
blame
]
!
Program
to test array expressions
in
array constructors
.
program nestcons
implicit
none
integer
,
parameter
::
w1
(
3
)=
(
/ 5, 6, 7/
)
integer
,
dimension
(
6
)
::
w2
w2
=
(
/ 1, 2, w1(3:1:-1), 3 /
)
if
(
any
(
w2
.
ne
.
(
/ 1, 2, 7, 6, 5, 3/
)))
STOP
1
end