[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / pr88048.f90

! { dg-do compile }
! PR fortran/88048
program p
   integer, parameter :: a(2) = 1
   data a(2) /a(1)/                 ! { dg-error "definable entity" }
   print *, a
end