diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-11-03 18:09:44 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-11-03 18:09:44 +0000 |
| commit | 6869e9c69f446161edba48722a75813934643382 (patch) | |
| tree | 4b3e9356f44befe3d696e42639572508aa2db76c /libgfortran/io/io.h | |
| parent | 1bac673faf4a0a0bd0a5606dad9d98b33d568510 (diff) | |
| download | gcc-6869e9c69f446161edba48722a75813934643382.zip gcc-6869e9c69f446161edba48722a75813934643382.tar.gz gcc-6869e9c69f446161edba48722a75813934643382.tar.bz2 | |
Default missing exponents to 0 with -fdec.
gcc/fortran/
* gfortran.texi: Document.
* gfortran.h (gfc_dt): New field default_exp.
* primary.c (match_real_constant): Default exponent with -fdec.
* io.c (match_io): Set dt.default_exp with -fdec.
* ioparm.def (IOPARM_dt_default_exp): New.
* trans-io.c (build_dt): Set IOPARM_dt_default_exp with -fdec.
libgfortran/io/
* io.h (IOPARM_DT_DEFAULT_EXP): New flag bit.
* list_read.c (parse_real, read_real): Allow omission of exponent with
IOPARM_DT_DEFAULT_EXP.
* read.c (read_f): Ditto.
gcc/testsuite/gfortran.dg/
* dec_exp_1.f90, dec_exp_2.f90, dec_exp_3.f90: New testcases.
From-SVN: r241828
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 7a54849..cd0a26f 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -443,6 +443,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) /* Internal use bit. */ #define IOPARM_DT_IONML_SET (1u << 31) |