1! Program to test array expressions in array constructors.
2program nestcons
3   implicit none
4   integer, parameter :: w1(3)= (/ 5, 6, 7/)
5   integer, dimension(6) :: w2
6
7   w2 = (/ 1, 2, w1(3:1:-1), 3 /)
8   if (any (w2 .ne. (/ 1, 2, 7, 6, 5, 3/))) STOP 1
9end
10