xref: /llvm-project/flang/test/Evaluate/fold-jzext.f90 (revision 6d279f40510aa39a8fb3efd25143b2a0ccb0f0f6) 
1! RUN: %python %S/test_folding.py %s %flang_fc1
2! Tests folding of IZEXT() & JZEXT()
3module m
4  logical, parameter :: test_1 = kind(izext(-1_1)) == 2
5  logical, parameter :: test_2 = izext(-1_1) == 255_2
6  logical, parameter :: test_3 = kind(jzext(-1_1)) == 4
7  logical, parameter :: test_4 = jzext(-1_1) == 255_4
8  logical, parameter :: test_5 = kind(jzext(-1_2)) == 4
9  logical, parameter :: test_6 = jzext(-1_2) == 255_4
10end module
11