11 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Tests folding of IZEXT() & JZEXT()3module m4 logical, parameter :: test_1 = kind(izext(-1_1)) == 25 logical, parameter :: test_2 = izext(-1_1) == 255_26 logical, parameter :: test_3 = kind(jzext(-1_1)) == 47 logical, parameter :: test_4 = jzext(-1_1) == 255_48 logical, parameter :: test_5 = kind(jzext(-1_2)) == 49 logical, parameter :: test_6 = jzext(-1_2) == 255_410end module11