From 6869e9c69f446161edba48722a75813934643382 Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Thu, 3 Nov 2016 18:09:44 +0000 Subject: 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 --- libgfortran/io/io.h | 1 + 1 file changed, 1 insertion(+) (limited to 'libgfortran/io/io.h') 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) -- cgit v1.1