gcc/testsuite/gfortran.dg/use_only_2.f90

   1 ! { dg-do compile }
   2 ! Checks the fix for PR34672, in which generic interfaces were not
   3 ! being written correctly, when renamed.
   4 !
   5 ! Contributed by Jos de Kloe <kloedej@knmi.nl>
   6 !
   7 MODULE MyMod1
   8   integer, parameter :: i2_ = Selected_Int_Kind(4)
   9 END Module MyMod1
  10
  11 module MyMod2
  12   INTERFACE write_int
  13      module procedure write_int_local
  14   END INTERFACE
  15 contains
  16   subroutine write_int_local(value)
  17     integer, intent(in)  :: value
  18     print *,value
  19   end subroutine write_int_local
  20 end module MyMod2
  21
  22 module MyMod3
  23   USE MyMod2, only: write_MyInt   => write_int
  24   USE MyMod1, only: i2_
  25 end module MyMod3
  26
  27 module MyMod4
  28   USE MyMod3, only: write_MyInt
  29 end module MYMOD4
  30 ! { dg-final { cleanup-modules "MyMod1 MyMod2 MyMod3 MyMod4" } }