diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-12-21 21:23:52 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-12-21 21:23:52 +0000 |
commit | 50220190d24a251bba53c1eb6cf54ae6979d38b6 (patch) | |
tree | a2782d026ced11088ac3bddad90c020959504cdf /gcc | |
parent | c8129db1047d3133c1acea369d91424e150bce22 (diff) | |
download | gcc-50220190d24a251bba53c1eb6cf54ae6979d38b6.zip gcc-50220190d24a251bba53c1eb6cf54ae6979d38b6.tar.gz gcc-50220190d24a251bba53c1eb6cf54ae6979d38b6.tar.bz2 |
re PR fortran/38398 (g0.w edit descriptor: Update for F2008 Tokyo meeting changes)
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.
From-SVN: r142871
Diffstat (limited to 'gcc')
0 files changed, 0 insertions, 0 deletions