diff options
author | Tobias Burnus <burnus@net-b.de> | 2010-02-21 14:06:07 +0100 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-02-21 14:06:07 +0100 |
commit | 72bd130e66f28490198385ff62481a719a0103c0 (patch) | |
tree | d4fbccbf175b1cb47bc63157005e3fbde3964021 /gcc/fortran/options.c | |
parent | c76dc9b0e660bb78b5addda708a1b1eeb53ec1b8 (diff) | |
download | gcc-72bd130e66f28490198385ff62481a719a0103c0.zip gcc-72bd130e66f28490198385ff62481a719a0103c0.tar.gz gcc-72bd130e66f28490198385ff62481a719a0103c0.tar.bz2 |
re PR fortran/35259 (-fassociative-math not enabled by default; No option to associate with PAREN_EXPRs)
2010-02-21 Tobias Burnus <burnus@net-b.de>
PR fortran/35259
* doc/invoke.texi (-fassociative-math): Document that this
option is automatically enabled for Fortran.
2010-02-21 Tobias Burnus <burnus@net-b.de>
PR fortran/35259
* gfortran.h (gfc_option_t): New flag -fprotect-parens.
* lang.opt: Ditto.
* option.c (gfc_init_options,gfc_handle_option): Ditto.
* trans-expr.c (gfc_conv_expr_op): Use the flag.
* invoke.texi: Document new -fno-protect-parens flag.
2010-02-21 Tobias Burnus <burnus@net-b.de>
PR fortran/35259
* gfortran.dg/reassoc_5.f90: New test.
From-SVN: r156937
Diffstat (limited to 'gcc/fortran/options.c')
-rw-r--r-- | gcc/fortran/options.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index a9ce560..bcde573 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -125,6 +125,7 @@ gfc_init_options (unsigned int argc, const char **argv) gfc_option.flag_init_character = GFC_INIT_CHARACTER_OFF; gfc_option.flag_init_character_value = (char)0; gfc_option.flag_align_commons = 1; + gfc_option.flag_protect_parens = 1; gfc_option.fpe = 0; gfc_option.rtcheck = 0; @@ -921,6 +922,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_align_commons = value; break; + case OPT_fprotect_parens: + gfc_option.flag_protect_parens = value; + break; + case OPT_fcheck_: gfc_handle_runtime_check_option (arg); break; |