[flang] Accept polymorphic component element in storage_size

[llvm-project.git] / flang / test / Semantics / structconst05.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
! Ensure that PDT instance structure constructors can be folded to constants
module m1
  type :: pdt(k)
    integer, len :: k
    character(len=k) :: x, y = "def"
  end type
  type(pdt(4)) :: v = pdt(4)("abc")
end module