8 lines
270 B
FortranFixed
8 lines
270 B
FortranFixed
|
! { dg-do compile }
|
||
|
! PR 34305 - make sure there's an error message for specifying a
|
||
|
program test
|
||
|
parameter (datasize = 1000)
|
||
|
dimension idata (datasize) ! { dg-error "must be of INTEGER type|must have constant shape" }
|
||
|
idata (1) = -1
|
||
|
end
|