diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-07 23:59:53 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-07 23:59:53 +0000 |
| commit | 5849d6cdc06a473a5ad39ff6bc7d446713a6fc16 (patch) | |
| tree | 487800676128abb382d449fe3bde8cb9bd059db8 /libgfortran/io/io.h | |
| parent | ef05b5a5656bf8137e8c6faa23203a551e65487f (diff) | |
| download | gcc-5849d6cdc06a473a5ad39ff6bc7d446713a6fc16.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136545 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 7f9f38f80c0..ea75bdbc405 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -931,6 +931,9 @@ internal_proto(write_l); extern void write_o (st_parameter_dt *, const fnode *, const char *, int); internal_proto(write_o); +extern void write_real (st_parameter_dt *, const char *, int); +internal_proto(write_real); + extern void write_x (st_parameter_dt *, int, int); internal_proto(write_x); |