6 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12character(10), parameter :: a = '0123456789'3character(3), parameter :: arr(3) = [(a(1:i), i=1,3)]4logical, parameter :: test1 = all(arr == ["0", "01", "012"])5end6 1! RUN: %python %S/test_folding.py %s %flang_fc12character(10), parameter :: a = '0123456789'3character(3), parameter :: arr(3) = [(a(1:i), i=1,3)]4logical, parameter :: test1 = all(arr == ["0", "01", "012"])5end6