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