RosettaCodeData/Task/Copy-a-string/Fortran/copy-a-string.f