path: root/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