diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2017-09-23 15:15:20 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2017-09-23 15:15:20 +0200 |
| commit | d16d81b54f29fdb8901d01125bd00464f551c1d7 (patch) | |
| tree | ccd358e62d41b796f12904b956dea9450ef1e93b /gcc/fortran/module.c | |
| parent | 89762a83cdc24a5a9471acdc4676d150d3c71a11 (diff) | |
| download | gcc-d16d81b54f29fdb8901d01125bd00464f551c1d7.zip gcc-d16d81b54f29fdb8901d01125bd00464f551c1d7.tar.gz gcc-d16d81b54f29fdb8901d01125bd00464f551c1d7.tar.bz2 | |
re PR fortran/82143 (add a -fdefault-real-16 flag)
2017-09-23 Janus Weil <janus@gcc.gnu.org>
PR fortran/82143
* lang.opt: Add the options -fdefault-real-10 and -fdefault-real-16.
Rename flag_default_real to flag_default_real_8.
* invoke.texi: Add documentation.
* module.c (use_iso_fortran_env_module): flag_default_real is renamed.
* trans-types.c (gfc_init_kinds): Implement the flags
-fdefault-real-10 and -fdefault-real-16. Make -fdefault-double-8 work
without -fdefault-real-8.
2017-09-23 Janus Weil <janus@gcc.gnu.org>
PR fortran/82143
* gfortran.dg/promotion_3.f90: New test case.
* gfortran.dg/promotion_4.f90: New test case.
From-SVN: r253117
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index d71221c..63877a0 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -6741,7 +6741,7 @@ use_iso_fortran_env_module (void) "standard", symbol[i].name, &u->where)) continue; - if ((flag_default_integer || flag_default_real) + if ((flag_default_integer || flag_default_real_8) && symbol[i].id == ISOFORTRANENV_NUMERIC_STORAGE_SIZE) gfc_warning_now (0, "Use of the NUMERIC_STORAGE_SIZE named " "constant from intrinsic module " @@ -6808,7 +6808,7 @@ use_iso_fortran_env_module (void) if ((gfc_option.allow_std & symbol[i].standard) == 0) continue; - if ((flag_default_integer || flag_default_real) + if ((flag_default_integer || flag_default_real_8) && symbol[i].id == ISOFORTRANENV_NUMERIC_STORAGE_SIZE) gfc_warning_now (0, "Use of the NUMERIC_STORAGE_SIZE named constant " |