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
8