1! { dg-do compile } 2! 3! PR 60359: [OOP] symbol `__io_MOD___copy_character_1' is already defined 4! 5! Contributed by Antony Lewis <antony@cosmologist.info> 6 7module IO 8implicit none 9 10contains 11 12 subroutine FWRite(S) 13 class(*) :: S 14 end subroutine 15 16 subroutine IO_OutputMargeStats() 17 character(len=128) tag 18 call FWrite(tag) 19 call FWrite(' '//tag) 20 end subroutine 21 22end module 23 24! { dg-final { cleanup-modules "IO" } } 25