xref: /llvm-project/flang/test/Semantics/structconst05.f90 (revision a054c882053e63e6fce7b412a93dc7fc228f11fd)
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