PR inline-asm/84742

[official-gcc.git] / gcc / testsuite / gfortran.dg / real_dimension_1.f

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