1! { dg-do compile }
2! Test the fix for PR34476 in which an 'out of bounds' error would be
3! generated for the array initializations AND the implicit index 'i'
4! would be rejected.
5!
6! Reported by Tobias Burnus <burnus@gcc.gnu.org> following a thread
7! on comp.lang.fortran (see PR)
8!
9module abuse_mod
10   implicit none
11   integer i
12   character(8), parameter :: HEX1 = '40490FDB'
13   integer(1), parameter :: MSKa1(len(HEX1)) =  [(1,i=1,len(HEX1))]
14   integer(1), parameter :: ARR1(len(HEX1)) = [( MSKa1(i), i=1,len(HEX1) )]
15end module abuse_mod
16