Fix warning with -Wsign-compare -Wsystem-headers
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / nestcons.f90
blob6fd801da2e0e73963129bbb75739f9421a420227
1 ! Program to test array expressions in array constructors.
2 program nestcons
3 implicit none
4 integer, parameter :: w1(3)= (/ 5, 6, 7/)
5 integer, dimension(6) :: w2
7 w2 = (/ 1, 2, w1(3:1:-1), 3 /)
8 if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) STOP 1
9 end