5 ! Test case based on Juergen Reuter's and reduced by
8 ! The program creates a large array constructor, which
9 ! exceeds -fmax-array-constructor - and caused an ICE.
14 integer, parameter :: N = 256
15 logical, dimension(N**2), parameter :: A = .false.
16 logical, dimension(N,N), parameter :: B &
17 = reshape ( (/ A /), (/ N, N /) ) ! { dg-error "array constructor at .1. requires an increase" }