1! RUN: %S/test_folding.sh %s %t %f18
2! Test folding of array constructors with duplicate names for the implied
3! DO variables
4module 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)
11end module
12