Subversion Repositories openrisc

! { dg-do compile }

! Test the fix for PR25135 in which the ambiguity between subroutine

! foo in m_foo and interface foo in m_bar was not recognised.

!

!Contributed by Yusuke IGUCHI 

!

module m_foo

contains

  subroutine foo

    print *, "foo"

  end subroutine

end module

module m_bar

  interface foo

    module procedure bar

  end interface

contains

  subroutine bar

    print *, "bar"

  end subroutine

end module

use m_foo

use m_bar

call foo ! { dg-error "is an ambiguous reference" }

end

! { dg-final { cleanup-modules "m_foo m_bar" } }