ich dieses Stück Code haben:Fehler: Symbol `__fileimporter_class_MOD___copy_character_1' bereits definiert
subroutine ReadCharToVariable(self,Format,VarOut)
implicit none
! Declaring Part
class(FileImporter) :: self
character(len=25) :: DefaultValue = 'null'
character(len=25), intent(out) :: VarOut
character (len=*) :: Format
class(*), allocatable :: Value
! Executing Part
allocate(Value,source = DefaultValue)
call self%ReadValueToVariable(Format,Value)
select type(Value)
type is (character(*))
VarOut = Value
end select
end subroutine ReadCharToVariable
Was tut, ist, ruft sie ReadValueToVariable mit Value
Art ein Zeichen zu sein. ReadValueToVariable liest dann ein Zeichen aus der Datei und gibt es in Value
zurück. Kompilieren (gcc 4.8.5) führt zum Fehler
/tmp/cc5JuIb6.s: Assembler messages:
/tmp/cc5JuIb6.s:156: Error: symbol `__fileimporter_class_MOD___copy_character_1' is already defined
der Fehler durch die type is (character(*))
Leitung verursacht wird (ohne den Charakter Funktionalität kompiliert). Ich verstehe nicht, was hier falsch ist, vielleicht kannst du mir helfen?
Dies könnte ein Compiler-Problem sein, beschreiben Sie die Version und die Flags, die Sie verwenden. Es gab ähnliche Fehler in gfortran 4.8 und einigen späteren Versionen. –
Der Compiler ist 'gcc Version 4.8.5 (SUSE Linux)'. Compiler-Flags sind '-c' oder' -fno-f2c -O0-g', beide ergeben die gleiche Fehlermeldung – THo