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