10 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Ensure that PDT instance structure constructors can be folded to constants3module m14 type :: pdt(k)5 integer, len :: k6 character(len=k) :: x, y = "def"7 end type8 type(pdt(4)) :: v = pdt(4)("abc")9end module10