! { 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" } }