gcc/testsuite/gfortran.dg/use_14.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, gugu => my_sub
  15   real a
  16   print *, a
  17 end subroutine
  18
  19 END