flang/test/Semantics/array-constr-big.f90

   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
   4 program 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 /) )
  28 end