diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2020-01-02 00:57:31 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2020-01-02 00:57:31 +0000 |
| commit | 2b70275ee1b0de038324280276a9edebcaa93d90 (patch) | |
| tree | a506e71b83bed14cc440edf8ef11d427af41d8c6 /libgfortran/io/io.h | |
| parent | a7ff7c725076d1ad01f36404286e73d5069e9aab (diff) | |
| download | gcc-2b70275ee1b0de038324280276a9edebcaa93d90.zip gcc-2b70275ee1b0de038324280276a9edebcaa93d90.tar.gz gcc-2b70275ee1b0de038324280276a9edebcaa93d90.tar.bz2 | |
PR 90374 d0.d, e0.d, es0.d, en0.d, g0.d and ew.d edit descriptors.
PR libfortran/90274
* io/format.c (parse_format_list): Implement the E0 exponent
width to provide smallest possible width for exponent fields.
Refactor code for correct parsing and better readability of the
code.
* io/io.h (write_real_w0): Change interface to pass in pointer
to fnode.
* io/transfer.c: Update all calls to write_real_w0 to use the
new interface.
* io/write.c ((write_real_w0): Use the new interface with fnode
to access both the decimal precision and exponent widths used in
build_float_string.
* io/write_float.def (build_float_string): Use the passed in
exponent width to calculate the used width in the case of E0.
From-SVN: r279828
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 7296cbe..ab4a103 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -942,7 +942,7 @@ internal_proto(write_o); extern void write_real (st_parameter_dt *, const char *, int); internal_proto(write_real); -extern void write_real_w0 (st_parameter_dt *, const char *, int, format_token, int); +extern void write_real_w0 (st_parameter_dt *, const char *, int, const fnode*); internal_proto(write_real_w0); extern void write_x (st_parameter_dt *, int, int); |