gcc/testsuite/gfortran.dg/real_dimension_1.f

   1 ! { dg-do compile }
   2 ! PR 34305 - make sure there's an error message for specifying a
   3       program test
   4       parameter (datasize = 1000)
   5       dimension idata (datasize)  ! { dg-error "must be of INTEGER type|must have constant shape" }
   6       idata (1) = -1
   7       end