1! { dg-do compile }
2!
3! PR 39930: Bogus error: ambiguous reference
4!
5! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7module a1
8contains
9  subroutine myRoutine
10  end subroutine
11end module
12
13module a2
14contains
15  subroutine myRoutine
16  end subroutine
17end module
18
19module b
20contains
21
22  subroutine otherRoutine
23    use a1
24    use a2
25  end subroutine
26
27  subroutine myRoutine
28  end subroutine myRoutine      ! this is not ambiguous !
29
30end module
31