1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Ensure that evaluating a very large array constructor does not crash the 3! compiler 4program BigArray 5 integer, parameter :: limit = 30 6 !ERROR: Must be a constant value 7 integer(foo),parameter :: jval4(limit,limit,limit) = & 8 !ERROR: Must be a constant value 9 reshape( (/ & 10 ( & 11 ( & 12 (0,ii=1,limit), & 13 jj=-limit,kk & 14 ), & 15 ( & 16 i4,jj=-kk,kk & 17 ), & 18 ( & 19 ( & 20 !ERROR: Must be a constant value 21 0_foo,ii=1,limit & 22 ), & 23 jj=kk,limit & 24 ), & 25 kk=1,limit & 26 ) /), & 27 (/ limit /) ) 28end 29