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