gcc/testsuite/gfortran.dg/same_name_1.f90

   1 ! { dg-do assemble }
   2 module n
   3 private u
   4 contains
   5   subroutine u
   6   end subroutine u
   7 end module n
   8 module m
   9   private :: u
  10 contains
  11   subroutine u
  12   end subroutine u
  13 end module m
  14
  15 ! { dg-final { cleanup-modules "n m" } }