gcc/testsuite/gfortran.dg/use_15.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34657
   4 !
   5 module test_mod
   6 interface
   7   subroutine my_sub (a)
   8     real a
   9   end subroutine
  10 end interface
  11 end module
  12
  13 subroutine my_sub (a)
  14   use test_mod ! { dg-error "is also the name of the current program unit" }
  15   real a
  16   print *, a
  17 end subroutine
  18
  19
  20 module test_mod2
  21   integer :: my_sub2
  22 end module
  23
  24 subroutine my_sub2 (a)
  25   use test_mod2 ! { dg-error "is also the name of the current program unit" }
  26   real a
  27   print *, a
  28 end subroutine
  29
  30
  31 subroutine my_sub3 (a)
  32   use test_mod2, my_sub3 => my_sub2  ! { dg-error "is also the name of the current program unit" }
  33   real a
  34   print *, a
  35 end subroutine
  36
  37 END
  38
  39 ! { dg-final { cleanup-modules "test_mod test_mod2" } }