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\r
   8   integer, parameter :: i2_ = Selected_Int_Kind(4)\r
   9 END Module MyMod1\r
  10 \r
  11 module MyMod2\r
  12   INTERFACE write_int\r
  13      module procedure write_int_local\r
  14   END INTERFACE\r
  15 contains\r
  16   subroutine write_int_local(value)\r
  17     integer, intent(in)  :: value\r
  18     print *,value\r
  19   end subroutine write_int_local\r
  20 end module MyMod2\r
  21 \r
  22 module MyMod3\r
  23   USE MyMod2, only: write_MyInt   => write_int\r
  24   USE MyMod1, only: i2_\r
  25 end module MyMod3\r
  26 \r
  27 module MyMod4\r
  28   USE MyMod3, only: write_MyInt\r
  29 end module MYMOD4\r
  30 ! { dg-final { cleanup-modules "MyMod1 MyMod2 MyMod3 MyMod4" } }