gcc/testsuite/gfortran.dg/used_types_26.f90

   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