Subversion Repositories openrisc

! { 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 

! Reduced testcase by Tobias Burnus 

!

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

! { dg-final { cleanup-modules "m1 m2" } }