12 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12module m3 logical, parameter :: test01 = all([1:10:2] == [(j, j=1,10,2)])4 logical, parameter :: test02 = kind([1:20:2]) == kind(1)5 logical, parameter :: test03 = all([10:1:-3,123] == [(j, j=10,1,-3),123])6 logical, parameter :: test04 = kind([10:1:-3,123]) == kind(1)7 logical, parameter :: test05 = kind([10_2:1_2:-3_2,123_2]) == 28 logical, parameter :: test06 = all([10_2:1_2:-3_2,123_2] == [(j, integer(2)::j=10,1,-3),123_2])9 logical, parameter :: test07 = kind([10_2:1_4:-3_2]) == 410 logical, parameter :: test08 = kind([10_2:1_4]) == 411end12