re PR fortran/36420 (Fortran 2008: g0 edit descriptor)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 7 Jun 2008 23:59:53 +0000 (23:59 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Sat, 7 Jun 2008 23:59:53 +0000 (23:59 +0000)
commit9355110f96f64237672a85f677f9876f979ab9bf
tree487800676128abb382d449fe3bde8cb9bd059db8
parent8955a00563959780a959086f6c79173d80fbfab8
re PR fortran/36420 (Fortran 2008: g0 edit descriptor)

2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libfortran/36420
PR libfortran/36421
PR libfortran/36422
* io/io.h: Add prototype for write_real.
* io/transfer.c (formatted_transfer_scalar): For FMT_G and width zero,
use write_real.
* io/format.c: Add zero width error message. (parse_format_list): Use
error message for FMT_A if followed by FMT_ZERO. Use zero width error
message for FMT_G if mode is READ or if -std=f95 or f2003. (fmormat0):
Fix typo in comment.
* io/write.c (write_a): Set wlen to len if FMT_G and length is zero.
(write_l): Add wlen variable and use it if FMT_G and width is zero.
(write_decimal): If FMT_G, set m to -1 to flag processor dependent
formatting. (write_real): Remove static declaration.

From-SVN: r136545
libgfortran/ChangeLog
libgfortran/io/format.c
libgfortran/io/io.h
libgfortran/io/transfer.c
libgfortran/io/write.c