1! Simplification of unary and binary expressions containing
2! array constructors.
3!
4! See PR33288
5!
6! { dg-do run }
7  real, parameter :: x(1) = 42
8  real, parameter :: x1(1) = (/ x /) + 1
9  real, parameter :: x2(1) = 1 + (/ x /)
10  real, parameter :: x3(1) = -(/ x /)
11  real, parameter :: x4(2) = (/ x, 1. /) + (/ 2, (/3/) /)
12
13  if (any (x1 /= (/43./))) call abort
14  if (any (x2 /= (/43./))) call abort
15  if (any (x3 /= (/-42./))) call abort
16  if (any (x4 /= (/44., 4./))) call abort
17end
18