3 ! { dg-options "-fmax-array-constructor=65535" }
6 integer, parameter :: n
= 10
7 integer, parameter :: m
= 65536
9 integer :: x(n
,m
) = spread([(i
,i
=1,n
)], dim
=2, ncopies
=m
) ! { dg-error "requires an increase of the allowed 65535 upper limit" }