! { dg-do compile } ! Tests the fix for PR29464, in which the second USE of the generic ! interface caused an error. ! ! Contributed by Vivek Rao ! module foo_mod implicit none interface twice module procedure twice_real end interface twice contains real function twice_real(x) real :: x twice_real = 2*x end function twice_real end module foo_mod subroutine foobar () use foo_mod, only: twice, twice print *, twice (99.0) end subroutine foobar program xfoo use foo_mod, only: two => twice, dbl => twice implicit none call foobar () print *, two (2.3) print *, dbl (2.3) end program xfoo