16c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1 25a9497d6SPeter Steinfeld! Ensure that evaluating a very large array constructor does not crash the 35a9497d6SPeter Steinfeld! compiler 45a9497d6SPeter Steinfeldprogram BigArray 55a9497d6SPeter Steinfeld integer, parameter :: limit = 30 65a9497d6SPeter Steinfeld !ERROR: Must be a constant value 75a9497d6SPeter Steinfeld integer(foo),parameter :: jval4(limit,limit,limit) = & 85a9497d6SPeter Steinfeld !ERROR: Must be a constant value 95a9497d6SPeter Steinfeld reshape( (/ & 105a9497d6SPeter Steinfeld ( & 115a9497d6SPeter Steinfeld ( & 125a9497d6SPeter Steinfeld (0,ii=1,limit), & 135a9497d6SPeter Steinfeld jj=-limit,kk & 145a9497d6SPeter Steinfeld ), & 155a9497d6SPeter Steinfeld ( & 165a9497d6SPeter Steinfeld i4,jj=-kk,kk & 175a9497d6SPeter Steinfeld ), & 185a9497d6SPeter Steinfeld ( & 195a9497d6SPeter Steinfeld ( & 205a9497d6SPeter Steinfeld !ERROR: Must be a constant value 215a9497d6SPeter Steinfeld 0_foo,ii=1,limit & 22*6fac3f7bSPeter Klausler ), & 235a9497d6SPeter Steinfeld jj=kk,limit & 245a9497d6SPeter Steinfeld ), & 255a9497d6SPeter Steinfeld kk=1,limit & 265a9497d6SPeter Steinfeld ) /), & 275a9497d6SPeter Steinfeld (/ limit /) ) 285a9497d6SPeter Steinfeldend 29