1! { dg-do compile }
2! Test the fix for PR41062, in which an ICE would ensue because
3! of confusion between the two 'one's in the creation of module
4! debug info.
5!
6! Reported by Norman S. Clerman <clerman@fuse.net>
7! Reduced testcase by Tobias Burnus <burnus@gcc.gnu.org>
8!
9module m1
10   interface one  ! GENERIC "one"
11     module procedure one1
12   end interface
13contains
14  subroutine one1()
15    STOP 1
16  end subroutine one1
17end module m1
18
19module m2
20use m1, only : one  ! USE generic "one"
21contains
22  subroutine two()
23    call one()  ! Call internal "one"
24  contains
25    subroutine one() ! Internal "one"
26      print *, "m2"
27    end subroutine one
28  end subroutine two
29end module m2
30
31  use m2
32  call two
33end
34