1! RUN: %S/test_errors.sh %s %t %f18 2 3module m1 4 implicit none 5 type t 6 integer :: n 7 end type 8 type t2 9 ! t and t2 must be resolved to types in m, not components in t2 10 type(t) :: t(10) = t(1) 11 type(t) :: x = t(1) 12 integer :: t2 13 type(t2), pointer :: p 14 end type 15end 16 17module m2 18 type :: t(t) 19 integer, kind :: t 20 integer(t) :: n 21 end type 22 type :: t2(t) 23 integer, kind :: t 24 type(t(t)) :: x = t(t)(t) 25 end type 26end 27