2 ! Checks the fix for PR34672, in which generic interfaces were not
3 ! being written correctly, when renamed.
5 ! Contributed by Jos de Kloe <kloedej@knmi.nl>
8 integer, parameter :: i2_ = Selected_Int_Kind(4)
\r
13 module procedure write_int_local
\r
16 subroutine write_int_local(value)
\r
17 integer, intent(in) :: value
\r
19 end subroutine write_int_local
\r
23 USE MyMod2, only: write_MyInt => write_int
\r
24 USE MyMod1, only: i2_
\r
28 USE MyMod3, only: write_MyInt
\r