mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
34 lines
707 B
Fortran
34 lines
707 B
Fortran
! { 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()
|
|
STOP 1
|
|
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
|