gcc-4.9/gcc/testsuite/gfortran.dg/unlimited_polymorphic_16.f90


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