1! { dg-do compile }
2! PR 34305 - Test for specifying a real as dimension
3 program test
4 real , parameter :: dsize = 1000
5 dimension idata (dsize) ! { dg-error "scalar INTEGER expression" }
6 idata (1) = -1 ! { dg-error "must have the pointer attribute" }
7 end
8