use_only_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 31 行

! { dg-do compile }
! Checks the fix for PR34672, in which generic interfaces were not
! being written correctly, when renamed.
!
! Contributed by Jos de Kloe <[e-mail]> 
!
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" } }