27 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3module m14 implicit none5 type t6 integer :: n7 end type8 type t29 ! t and t2 must be resolved to types in m1, not components in t210 type(t) :: t(10) = t(1)11 type(t) :: x = t(1)12 integer :: t213 type(t2), pointer :: p14 end type15end16 17module m218 type :: t(t)19 integer, kind :: t20 integer(t) :: n21 end type22 type :: t2(t)23 integer, kind :: t24 type(t(t)) :: x = t(t)(t)25 end type26end27