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