1*6d279f40SPeter Klausler! RUN: %python %S/test_folding.py %s %flang_fc1 2*6d279f40SPeter Klausler! Tests folding of IZEXT() & JZEXT() 3*6d279f40SPeter Klauslermodule m 4*6d279f40SPeter Klausler logical, parameter :: test_1 = kind(izext(-1_1)) == 2 5*6d279f40SPeter Klausler logical, parameter :: test_2 = izext(-1_1) == 255_2 6*6d279f40SPeter Klausler logical, parameter :: test_3 = kind(jzext(-1_1)) == 4 7*6d279f40SPeter Klausler logical, parameter :: test_4 = jzext(-1_1) == 255_4 8*6d279f40SPeter Klausler logical, parameter :: test_5 = kind(jzext(-1_2)) == 4 9*6d279f40SPeter Klausler logical, parameter :: test_6 = jzext(-1_2) == 255_4 10*6d279f40SPeter Klauslerend module 11