1 ! RUN: %python %S/test_folding.py %s %flang_fc1
3 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]) == 2
8 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]) == 4
10 logical, parameter :: test08
= kind([10_2:1_4]) == 4
