diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2018-03-28 13:59:06 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2018-03-28 13:59:06 +0200 |
| commit | 7ee4f6f3ec4c51221a8fc44f98f5da4c95f779ae (patch) | |
| tree | ae5de4e2be1e263ebdf5ccaeda1ee67d7c62326b /libgfortran/io | |
| parent | 5b1a758d26d594569fbf2ca1381fa27ec416fd23 (diff) | |
| download | gcc-7ee4f6f3ec4c51221a8fc44f98f5da4c95f779ae.zip gcc-7ee4f6f3ec4c51221a8fc44f98f5da4c95f779ae.tar.gz gcc-7ee4f6f3ec4c51221a8fc44f98f5da4c95f779ae.tar.bz2 | |
gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
* gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
* ioparm.def (IOPARM_dt_default_exp): Rename to ...
(IOPARM_dt_dec_ext): ... this.
* trans-io.c (build_dt): Adjust for default_exp renaming to
dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
* io.c (match_io): Likewise.
* io/io.h (IOPARM_DT_DEFAULT_EXP): Rename to ...
(IOPARM_DT_DEC_EXT): ... this.
* io/list_read.c (parse_real): Adjust for IOPARM_DT_DEFAULT_EXP
renaming to IOPARM_DT_DEC_EXT.
(read_real): Likewise.
* io/read.c (read_f): Likewise.
From-SVN: r258920
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/io.h | 2 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 4 | ||||
| -rw-r--r-- | libgfortran/io/read.c | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 3c2a2ca..ccbaf47 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -442,7 +442,7 @@ st_parameter_inquire; #define IOPARM_DT_HAS_SIGN (1 << 24) #define IOPARM_DT_HAS_F2003 (1 << 25) #define IOPARM_DT_HAS_UDTIO (1 << 26) -#define IOPARM_DT_DEFAULT_EXP (1 << 27) +#define IOPARM_DT_DEC_EXT (1 << 27) /* Internal use bit. */ #define IOPARM_DT_IONML_SET (1u << 31) diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index d052d1f..300c3bd 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1380,7 +1380,7 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length) if (!isdigit (c)) { /* Extension: allow default exponent of 0 when omitted. */ - if (dtp->common.flags & IOPARM_DT_DEFAULT_EXP) + if (dtp->common.flags & IOPARM_DT_DEC_EXT) { push_char (dtp, '0'); goto done; @@ -1831,7 +1831,7 @@ read_real (st_parameter_dt *dtp, void *dest, int length) if (!isdigit (c)) { /* Extension: allow default exponent of 0 when omitted. */ - if (dtp->common.flags & IOPARM_DT_DEFAULT_EXP) + if (dtp->common.flags & IOPARM_DT_DEC_EXT) { push_char (dtp, '0'); goto done; diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index 87adfb8..976020a 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -1093,7 +1093,7 @@ exponent: if (w == 0) { /* Extension: allow default exponent of 0 when omitted. */ - if (dtp->common.flags & IOPARM_DT_DEFAULT_EXP) + if (dtp->common.flags & IOPARM_DT_DEC_EXT) goto done; else goto bad_float; |