1! { dg-do compile } 2! 3! Check for ambiguity. 4! 5! Added as part of the constructor work (PR fortran/39427). 6! 7 module m 8 type t 9 end type t 10 end module m 11 12 module m2 13 type t 14 end type t 15 end module m2 16 17 use m 18 use m2 19 type(t) :: x ! { dg-error "Type name 't' at .1. is ambiguous" } 20 end 21