[flang] Accept polymorphic component element in storage_size

[llvm-project.git] / flang / test / Evaluate / fold-jzext.f90

! 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