! { dg-do compile } | |
! | |
! PR 60359: [OOP] symbol `__io_MOD___copy_character_1' is already defined | |
! | |
! Contributed by Antony Lewis <antony@cosmologist.info> | |
module IO | |
implicit none | |
contains | |
subroutine FWRite(S) | |
class(*) :: S | |
end subroutine | |
subroutine IO_OutputMargeStats() | |
character(len=128) tag | |
call FWrite(tag) | |
call FWrite(' '//tag) | |
end subroutine | |
end module | |
! { dg-final { cleanup-modules "IO" } } |