12 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Test folding of array constructors with duplicate names for the implied3! DO variables4module m15 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 module12