1! { dg-do compile }
2! Test the fix for PR25135 in which the ambiguity between subroutine
3! foo in m_foo and interface foo in m_bar was not recognised.
4!
5!Contributed by Yusuke IGUCHI <iguchi@coral.t.u-tokyo.ac.jp>
6!
7module m_foo
8contains
9  subroutine foo
10    print *, "foo"
11  end subroutine
12end module
13
14module m_bar
15  interface foo
16    module procedure bar
17  end interface
18contains
19  subroutine bar
20    print *, "bar"
21  end subroutine
22end module
23
24use m_foo
25use m_bar
26
27call foo ! { dg-error "is an ambiguous reference" }
28end
29