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