Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.2.1
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
nestcons.f90
blob: d2d54562503bdd1b2858e228bedd10dfbca07912 [
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/
)))
call abort
end