Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

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

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

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

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

!

!

!Contributed by Yusuke IGUCHI 

!Contributed by Yusuke IGUCHI 

!

!

module m_foo

module m_foo

contains

contains

  subroutine foo

  subroutine foo

    print *, "foo"

    print *, "foo"

  end subroutine

  end subroutine

end module

end module

module m_bar

module m_bar

  interface foo

  interface foo

    module procedure bar

    module procedure bar

  end interface

  end interface

contains

contains

  subroutine bar

  subroutine bar

    print *, "bar"

    print *, "bar"

  end subroutine

  end subroutine

end module

end module

use m_foo

use m_foo

use m_bar

use m_bar

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

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

end

end

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

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