[Bug fortran/38398] g0.w edit descriptor: Update for F2008 Tokyo meeting changes

["jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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  <jvdelisle@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