https://gcc.gnu.org/bugzilla/show_bug.cgi?id=111022

--- Comment #24 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Currently gfortran does the following:

character(20) :: fmt
character(9) :: buffer
fmt = "(1a1,d0.2,1a1)"
write(buffer,fmt) ">", 3.0, "<"
 print *, buffer
fmt = "(1a1,e0.2,1a1)"
write(buffer,fmt) ">", 3.0, "<"
 print *, buffer
end


$ gfc question.f90 
$ ./a.out 
 >0.30D+1<
 >0.30E+1<

Why not:

$ ./a.out 
 >3.00D+0<
 >3.00E+0<

What does Intel do?

Reply via email to