modula2: Simplify REAL/LONGREAL/SHORTREAL node creation.

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr95585.f90

! { dg-do compile }

program test
  integer, parameter :: a(2) = reshape([1, 2], a) ! { dg-error "before its definition" }
end program