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 /gcc/fortran/io.c | |
| 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 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 10b7e82..0aa31bb 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -4291,9 +4291,10 @@ get_io_list: goto syntax; } - /* See if we want to use defaults for missing exponents in real transfers. */ + /* See if we want to use defaults for missing exponents in real transfers + and other DEC runtime extensions. */ if (flag_dec) - dt->default_exp = 1; + dt->dec_ext = 1; /* A full IO statement has been matched. Check the constraints. spec_end is supplied for cases where no locus is supplied. */ |