blob: 99e186d5c14937cf6c219033aadda2f98d295e37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { 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" } }
|