gcc/testsuite/gfortran.dg/array_constructor_19.f90

   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
  17 end