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