diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-09-29 02:47:54 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-09-29 02:47:54 +0000 |
| commit | 379924dd5991228b5e65fac5815ecac0d389a786 (patch) | |
| tree | b230ba0e2e2c68e0265fe9335396a5deeeb603e0 /libgfortran/io/io.h | |
| parent | f2a71504e00cb7785bdc78b12da8d1608762f6cc (diff) | |
| download | gcc-379924dd5991228b5e65fac5815ecac0d389a786.zip gcc-379924dd5991228b5e65fac5815ecac0d389a786.tar.gz gcc-379924dd5991228b5e65fac5815ecac0d389a786.tar.bz2 | |
re PR libfortran/35862 ([F2003] Implement new rounding modes for run time)
2009-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/35862
* io.h (gfc_unit): Add round_status.
(format_token): Add enumerators for rounding format specifiers.
* transfer.c (round_opt): New options table.
(formatted_transfer_scalar_read): Add set round_status for each rounding
format token. (formatted_transfer_scalar_write): Likewise.
* format.c (format_lex): Tokenize the rounding format specifiers.
(parse_format_list): Parse the rounding format specifiers.
* write_float.def (outout_float): Modify rounding code to use new
variable rchar to set the appropriate rounding. Fix some whitespace.
* unit.c (get_internal_unit): Initialize rounding mode for internal
units. (init_units): Likewise.
From-SVN: r152263
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 9ca6d38..51143f5 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -602,6 +602,7 @@ typedef struct gfc_unit unit_pad pad_status; unit_decimal decimal_status; unit_delim delim_status; + unit_round round_status; /* recl -- Record length of the file. last_record -- Last record number read or written @@ -654,7 +655,7 @@ typedef enum FMT_LPAREN, FMT_RPAREN, FMT_X, FMT_S, FMT_SS, FMT_SP, FMT_STRING, FMT_BADSTRING, FMT_P, FMT_I, FMT_B, FMT_BN, FMT_BZ, FMT_O, FMT_Z, FMT_F, FMT_E, FMT_EN, FMT_ES, FMT_G, FMT_L, FMT_A, FMT_D, FMT_H, FMT_END, FMT_DC, - FMT_DP, FMT_STAR + FMT_DP, FMT_STAR, FMT_RC, FMT_RD, FMT_RN, FMT_RP, FMT_RU, FMT_RZ } format_token; |