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
|
