1! { dg-do compile } 2! 3! PR fortran/34657 4! 5module test_mod 6interface 7 subroutine my_sub (a) 8 real a 9 end subroutine 10end interface 11end module 12 13subroutine my_sub (a) 14 use test_mod, gugu => my_sub 15 real a 16 print *, a 17end subroutine 18 19END 20