| Egor Pasko | 167ac2b | 2010-05-18 12:26:51 | [diff] [blame^] | 1 | ! { dg-do compile } |
| 2 | ! { dg-options "-fmax-array-constructor=100000" } | ||||
| 3 | ! Test for PR19925 | ||||
| 4 | ! | ||||
| 5 | program 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) | ||||
| 11 | end program pr19925 | ||||