summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/parameter_array_init_6.f90
blob: 9a654db3f001adf765fa826248277e0c23013d89 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
! { dg-do compile }
!
! PR fortran/44742
!
! Test case based on Juergen Reuter's and reduced by
! Janus Weil.
!
! The program creates a large array constructor, which
! exceeds -fmax-array-constructor - and caused an ICE.
!

module proc8
  implicit none
  integer, parameter :: N = 256
  logical, dimension(N**2), parameter :: A = .false.
  logical, dimension(N,N), parameter :: B &
    = reshape ( (/ A /), (/ N, N /) ) ! { dg-error "array constructor at .1. requires an increase" }
end module