summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/real_dimension_1.f
blob: 73e9131aaee49bb355d825b17e234eb7bc293925 (plain)
1
2
3
4
5
6
7
! { 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