| ! { 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 <iguchi@coral.t.u-tokyo.ac.jp> |
| ! |
| 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" } } |
| |
| |