1! { dg-do compile }
2! { dg-options "-fmax-array-constructor=100000" }
3! Test for PR19925
4!
5program pr19925
6 implicit none
7 integer j
8 integer, parameter :: n = 100000
9 integer, parameter :: i(n) = (/ (j, j=1, n) /)
10 print *, i(5)
11end program pr19925
12