18 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12module m3 logical, parameter :: test_0 = selected_logical_kind( 0) == 14 logical, parameter :: test_1 = selected_logical_kind( 1) == 15 logical, parameter :: test_7 = selected_logical_kind( 7) == 16 logical, parameter :: test_8 = selected_logical_kind( 8) == 17 logical, parameter :: test_9 = selected_logical_kind( 9) == 28 logical, parameter :: test_15 = selected_logical_kind(15) == 29 logical, parameter :: test_16 = selected_logical_kind(16) == 210 logical, parameter :: test_17 = selected_logical_kind(17) == 411 logical, parameter :: test_31 = selected_logical_kind(31) == 412 logical, parameter :: test_32 = selected_logical_kind(32) == 413 logical, parameter :: test_33 = selected_logical_kind(33) == 814 logical, parameter :: test_63 = selected_logical_kind(63) == 815 logical, parameter :: test_64 = selected_logical_kind(64) == 816 logical, parameter :: test_65 = selected_logical_kind(65) == -117end18