select - Error: symbol `__fileimporter_class_MOD___copy_character_1' is already defined -
i have bit of code:
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 (character(*)) varout = value end select end subroutine readchartovariable
what is, calls readvaluetovariable value
being character type. readvaluetovariable reads character file , returns in value
. compiling (gcc 4.8.5) leads error
/tmp/cc5juib6.s: assembler messages: /tmp/cc5juib6.s:156: error: symbol `__fileimporter_class_mod___copy_character_1' defined
the error caused type (character(*))
line (without character functionality compiles). don't understand what's wrong here, maybe can me?
this compiler bug. related to, or directly 1 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60359, fixed in gfortran 4.9. note 4.8 not supported quite time , think release 4.9.4 last 1 4.9. supported versions 5 , 6.
Comments
Post a Comment