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