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

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