Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "foo_mod" } }