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