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