gcc/testsuite/gfortran.dg/unlimited_polymorphic_16.f90

   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
   7 module IO
   8 implicit none
   9
  10 contains
  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
  22 end module
  23
  24 ! { dg-final { cleanup-modules "IO" } }