! 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 |