summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/nestcons.f90
blob: d2d54562503bdd1b2858e228bedd10dfbca07912 (plain)
1
2
3
4
5
6
7
8
9
! 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