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