xref: /llvm-project/flang/test/Evaluate/fold-selected_logical_kind.f90 (revision 8383d768f272e4f549a492e8614a72082fb37573) 
1! RUN: %python %S/test_folding.py %s %flang_fc1
2module m
3  logical, parameter :: test_0  = selected_logical_kind( 0) == 1
4  logical, parameter :: test_1  = selected_logical_kind( 1) == 1
5  logical, parameter :: test_7  = selected_logical_kind( 7) == 1
6  logical, parameter :: test_8  = selected_logical_kind( 8) == 1
7  logical, parameter :: test_9  = selected_logical_kind( 9) == 2
8  logical, parameter :: test_15 = selected_logical_kind(15) == 2
9  logical, parameter :: test_16 = selected_logical_kind(16) == 2
10  logical, parameter :: test_17 = selected_logical_kind(17) == 4
11  logical, parameter :: test_31 = selected_logical_kind(31) == 4
12  logical, parameter :: test_32 = selected_logical_kind(32) == 4
13  logical, parameter :: test_33 = selected_logical_kind(33) == 8
14  logical, parameter :: test_63 = selected_logical_kind(63) == 8
15  logical, parameter :: test_64 = selected_logical_kind(64) == 8
16  logical, parameter :: test_65 = selected_logical_kind(65) == -1
17end
18