Subversion Repositories openrisc

! { dg-do compile }

! Checks the fix for PR34672, in which generic interfaces were not

! being written correctly, when renamed.

!

! Contributed by Jos de Kloe 

!

MODULE MyMod1

  integer, parameter :: i2_ = Selected_Int_Kind(4)

END Module MyMod1

module MyMod2

  INTERFACE write_int

     module procedure write_int_local

  END INTERFACE

contains

  subroutine write_int_local(value)

    integer, intent(in)  :: value

    print *,value

  end subroutine write_int_local

end module MyMod2

module MyMod3

  USE MyMod2, only: write_MyInt   => write_int

  USE MyMod1, only: i2_

end module MyMod3

module MyMod4

  USE MyMod3, only: write_MyInt

end module MYMOD4

! { dg-final { cleanup-modules "mymod1 mymod2 mymod3 mymod4" } }