summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/initialization_21.f90
blob: d43447679820216f89fa1b76026fe6f9309055e6 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
! { dg-options "-fmax-array-constructor=100000" }
! Test for PR19925
!
program pr19925
  implicit none
  integer j
  integer, parameter :: n = 100000
  integer, parameter :: i(n) = (/ (j, j=1, n) /)
  print *, i(5)
end program pr19925