gcc/testsuite/gfortran.dg/used_types_25.f90

   1 ! { dg-do compile }
   2 !
   3 ! Created to check this ambiguity when
   4 ! constructors were added. Cf. PR fortran/39427
   5
   6 module m
   7   type t
   8   end type t
   9 end module m
  10
  11 use m
  12  type t ! { dg-error "Derived type definition of 't' at .1. has already been defined" }
  13  end type t ! { dg-error "Expecting END PROGRAM statement" }
  14 end
  15
  16 ! { dg-final { cleanup-modules "m" } }
  17