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