diff options
author | Steven G. Kargl <kargls@comcast.net> | 2004-05-22 11:03:17 +0000 |
---|---|---|
committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-22 11:03:17 +0000 |
commit | 2d8b59dfd5402cce6da3949fb1f84d7492ab5cbc (patch) | |
tree | 5e2d923df60ffc2a25a7691f24bdb163cf4a7da7 /gcc/fortran/options.c | |
parent | 9fd47435098270dd5687b9bbaa34d1b9ecb494e7 (diff) | |
download | gcc-2d8b59dfd5402cce6da3949fb1f84d7492ab5cbc.zip gcc-2d8b59dfd5402cce6da3949fb1f84d7492ab5cbc.tar.gz gcc-2d8b59dfd5402cce6da3949fb1f84d7492ab5cbc.tar.bz2 |
invoke.texi: Document -Wunderflow and spell check.
* invoke.texi: Document -Wunderflow and spell check.
* lang.opt: Add Wunderflow.
* gfortran.h (gfc_option_t): Add warn_underflow option.
* options.c (gfc_init_options, set_Wall): Use it.
* primary.c (match_real_constant): Explicitly handle UNDERFLOW.
* arith.c (gfc_arith_uminus, gfc_arith_plus, gfc_arith_minus,
gfc_arith_times, gfc_arith_divide, gfc_arith_power, gfc_real2real,
gfc_real2complex, gfc_complex2real, gfc_complex2complex): Ditto.
* arith.c (common_logarithm): Fix typo in comment.
From-SVN: r82130
Diffstat (limited to 'gcc/fortran/options.c')
-rw-r--r-- | gcc/fortran/options.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index f0135bd..b0f9a76 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -56,6 +56,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.warn_conversion = 0; gfc_option.warn_implicit_interface = 0; gfc_option.warn_line_truncation = 0; + gfc_option.warn_underflow = 1; gfc_option.warn_surprising = 0; gfc_option.warn_unused_labels = 0; @@ -123,6 +124,7 @@ set_Wall (void) gfc_option.warn_aliasing = 1; gfc_option.warn_line_truncation = 1; + gfc_option.warn_underflow = 1; gfc_option.warn_surprising = 1; gfc_option.warn_unused_labels = 1; @@ -198,6 +200,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.warn_line_truncation = value; break; + case OPT_Wunderflow: + gfc_option.warn_underflow = value; + break; + case OPT_Wsurprising: gfc_option.warn_surprising = value; break; |