[Bug fortran/60359] Assembler messages symbol `__io_MOD___copy_character_1' is already defined

[kargl at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60359

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 CC||kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
Any chance that you can reduce this to a minimum testcase or
to something that is at least managable.

[Bug fortran/60359] Assembler messages symbol `__io_MOD___copy_character_1' is already defined

[antony at cosmologist dot info]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60359

--- Comment #2 from Antony Lewis antony at cosmologist dot info ---
This was reduced already, but actually wasn't too hard to find something much
simpler- just this:

module IO
implicit none


contains

subroutine FWRite(S)
class(*) :: S
end subroutine FWrite

subroutine IO_OutputMargeStats()
character(LEN=128) tag


call FWrite('  '//tag)
call FWrite('   '//tag)

end subroutine IO_OutputMargeStats
end module IO

[Bug fortran/60359] Assembler messages symbol `__io_MOD___copy_character_1' is already defined

[sgk at troutmask dot apl.washington.edu]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60359

--- Comment #3 from Steve Kargl sgk at troutmask dot apl.washington.edu ---
On Thu, Feb 27, 2014 at 11:47:13PM +, antony at cosmologist dot info wrote:
 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60359
 
 --- Comment #2 from Antony Lewis antony at cosmologist dot info ---
 This was reduced already, but actually wasn't too hard to find something much
 simpler- just this:
 
 module IO

 implicit none
 
 contains
 
 subroutine FWRite(S)
 class(*) :: S
 end subroutine FWrite
 
 subroutine IO_OutputMargeStats()
 character(LEN=128) tag
 
 call FWrite('  '//tag)
 call FWrite('   '//tag)
 
 end subroutine IO_OutputMargeStats
 end module IO
 

Thanks!  I had identified the issue with with F%Write in IO.f90,
but still have 5000 lines to eliminate to get to the above.
Unfortunately, I know zero about gfortran's class(*) implementation.