https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63352
--- Comment #6 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Your are not doing what I asked for. Could you compile and run without/with
--save-temps the following test:
character(25) :: string = "(g0,g0,g0)"
character(50) :: buffer
write(buffer, string) ':',1.0_8/3.0_8,':'
print *, "'", buffer, "'"
print *, "'", " :.33333333333333331:", "'"
write(buffer, '(1x,a,g0,a)') ':',1.0_8/3.0_8,':'
print *, "'", buffer, "'"
print *, "'", " :.33333333333333331:", "'"
end
and post the result?
