blob: 6a6cb067afc8176e372bab0acaf08c1944fe1368 [file] [log] [blame]
! { 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