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