11 lines
435 B
Fortran
11 lines
435 B
Fortran
|
! RUN: %python %S/test_folding.py %s %flang_fc1
|
||
|
|
! Tests folding of IZEXT() & JZEXT()
|
||
|
|
module m
|
||
|
|
logical, parameter :: test_1 = kind(izext(-1_1)) == 2
|
||
|
|
logical, parameter :: test_2 = izext(-1_1) == 255_2
|
||
|
|
logical, parameter :: test_3 = kind(jzext(-1_1)) == 4
|
||
|
|
logical, parameter :: test_4 = jzext(-1_1) == 255_4
|
||
|
|
logical, parameter :: test_5 = kind(jzext(-1_2)) == 4
|
||
|
|
logical, parameter :: test_6 = jzext(-1_2) == 255_4
|
||
|
|
end module
|