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