llvm/flang/test/Evaluate/triplets01.f90

! RUN: %python %S/test_folding.py %s %flang_fc1
module m
  logical, parameter :: test01 = all([1:10:2] == [(j, j=1,10,2)])
  logical, parameter :: test02 = kind([1:20:2]) == kind(1)
  logical, parameter :: test03 = all([10:1:-3,123] == [(j, j=10,1,-3),123])
  logical, parameter :: test04 = kind([10:1:-3,123]) == kind(1)
  logical, parameter :: test05 = kind([10_2:1_2:-3_2,123_2]) == 2
  logical, parameter :: test06 = all([10_2:1_2:-3_2,123_2] == [(j, integer(2)::j=10,1,-3),123_2])
  logical, parameter :: test07 = kind([10_2:1_4:-3_2]) == 4
  logical, parameter :: test08 = kind([10_2:1_4]) == 4
end