Subversion Repositories openrisc

! { dg-do compile }

! Test the fix for PR34476 in which an 'out of bounds' error would be

! generated for the array initializations AND the implicit index 'i'

! would be rejected.

!

! Reported by Tobias Burnus  following a thread

! on comp.lang.fortran (see PR)

!

module abuse_mod

   implicit none

   integer i

   character(8), parameter :: HEX1 = '40490FDB'

   integer(1), parameter :: MSKa1(len(HEX1)) =  [(1,i=1,len(HEX1))]

   integer(1), parameter :: ARR1(len(HEX1)) = [( MSKa1(i), i=1,len(HEX1) )]

end module abuse_mod

! { dg-final { cleanup-modules "abuse_mod" } }