1! { dg-do compile }
2! Tests the fix for PR29464, in which the second USE of the generic
3! interface caused an error.
4!
5! Contributed by Vivek Rao <vivekrao4@yahoo.com>
6!
7module foo_mod
8  implicit none
9  interface twice
10     module procedure twice_real
11  end interface twice
12contains
13  real function twice_real(x)
14    real :: x
15    twice_real = 2*x
16  end function twice_real
17end module foo_mod
18
19  subroutine foobar ()
20    use foo_mod, only: twice, twice
21    print *, twice (99.0)
22  end subroutine foobar
23
24  program xfoo
25  use foo_mod, only: two => twice, dbl => twice
26  implicit none
27  call foobar ()
28  print *, two (2.3)
29  print *, dbl (2.3)
30end program xfoo
31