_gfortran_copy_string