------- Comment #7 from jvdelisle at gcc dot gnu dot org 2008-12-21 21:25 ------- Subject: Bug 38398
Author: jvdelisle Date: Sun Dec 21 21:23:52 2008 New Revision: 142871 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=142871 Log: 2008-12-21 Jerry DeLisle <jvdeli...@gcc.gnu.org> PR libfortran/38398 * io/io.h (st_parameter_dt): Add new bit to keep track of when to suppress blanks for g0 formatting. * io/transfer.c (formatted_transfer_scalar): Always call write_real_g0 for g0 formatting. * io.c (write.c): Do not use ES formatting and use new bit to suppress blanks. * io/write_float.def (output_float): Adjust the location of setting the width so that it can be adjusted when suppressing blanks. Set number of blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code clean-up and add some white space for readability. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/io.h trunk/libgfortran/io/transfer.c trunk/libgfortran/io/write.c trunk/libgfortran/io/write_float.def -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38398
