1! { dg-do compile }
2!
3! PR fortran/44742
4!
5! Test case based on Juergen Reuter's and reduced by
6! Janus Weil.
7!
8! The program creates a large array constructor, which
9! exceeds -fmax-array-constructor - and caused an ICE.
10!
11
12module proc8
13  implicit none
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" }
18end module
19