gcc/testsuite/gfortran.dg/use_28.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/47203
   4 ! The USE statement of a module was not rejected in a procedure with the same
   5 ! name if the procedure was contained.
   6 !
   7 ! Contributed by Tobias Burnus <burnus@net-b.de>
   8
   9 module m
  10 end module m
  11
  12 call m
  13 contains
  14   subroutine m()
  15      use m      ! { dg-error "is also the name of the current program unit" }
  16   end subroutine m
  17 end
  18