29 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Ensure that evaluating a very large array constructor does not crash the3! compiler4program BigArray5 integer, parameter :: limit = 306 !ERROR: Must be a constant value7 integer(foo),parameter :: jval4(limit,limit,limit) = &8 !ERROR: Must be a constant value9 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 value21 0_foo,ii=1,limit &22 ), &23 jj=kk,limit &24 ), &25 kk=1,limit &26 ) /), &27 (/ limit /) )28end29