flang/test/Evaluate/folding15.f90

   1 ! RUN: %python %S/test_folding.py %s %flang_fc1
   2 ! Test folding of array constructors with duplicate names for the implied
   3 ! DO variables
   4 module m1
   5   integer, parameter :: expected(12) = [1, 2, 4, 6, 1, 2, 4, 6, 1, 2, 3, 6]
   6   integer, parameter :: dups(12) = &
   7     [ ((iDuplicate, iDuplicate = 1,j), &
   8        (2 * iDuplicate, iDuplicate = j,3 ), &
   9         j = 1,3 ) ]
  10   logical, parameter :: test_dups = all(dups == expected)
  11 end module