diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2006-03-14 19:37:49 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-03-14 19:37:49 +0000 |
| commit | 840bd9f778b1fd68365b57aac7cf21a8b3a75620 (patch) | |
| tree | 23e49aecb250e0c261f9007175cf7a970b2fd22a /gcc/fortran/options.c | |
| parent | df6872b72d5ceb81427a55038f0dba06b72f7a68 (diff) | |
| download | gcc-840bd9f778b1fd68365b57aac7cf21a8b3a75620.zip gcc-840bd9f778b1fd68365b57aac7cf21a8b3a75620.tar.gz gcc-840bd9f778b1fd68365b57aac7cf21a8b3a75620.tar.bz2 | |
re PR fortran/18537 (no warning about tabs with std=f95 option)
PR 18537
* gfortran.h: Wrap Copyright line.
(gfc_option_t): add warn_tabs member.
* lang.opt: Update Coyright year. Add the Wtabs.
* invoke.texi: Document -Wtabs.
* scanner.c (gfc_gobble_whitespace): Use warn_tabs. Add linenum to
suppress multiple warnings.
(load_line): Use warn_tabs. Add linenum, current_line, seen_comment
to suppress multiple warnings.
* options.c (gfc_init_options): Initialize warn_tabs.
(set_Wall): set warn_tabs for -Wall.
(gfc_post_options): Adjust flag_tabs depending on -pedantic.
(gfc_handle_option): Process command-line option -W[no-]tabs
From-SVN: r112066
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 6a9bec9..f0ab399 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -55,8 +55,9 @@ 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_tabs = 1; + gfc_option.warn_underflow = 1; gfc_option.warn_unused_labels = 0; gfc_option.flag_default_double = 0; @@ -283,11 +284,12 @@ set_Wall (void) gfc_option.warn_aliasing = 1; gfc_option.warn_line_truncation = 1; - gfc_option.warn_underflow = 1; + gfc_option.warn_nonstd_intrinsics = 1; gfc_option.warn_surprising = 1; + gfc_option.warn_tabs = 0; + gfc_option.warn_underflow = 1; gfc_option.warn_unused_labels = 1; - gfc_option.warn_nonstd_intrinsics = 1; - + set_Wunused (1); warn_return_type = 1; warn_switch = 1; @@ -395,14 +397,18 @@ 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; + case OPT_Wtabs: + gfc_option.warn_tabs = value; + break; + + case OPT_Wunderflow: + gfc_option.warn_underflow = value; + break; + case OPT_Wunused_labels: gfc_option.warn_unused_labels = value; break; @@ -547,6 +553,7 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95 | GFC_STD_F77; gfc_option.warn_std = GFC_STD_F95_OBS; gfc_option.max_identifier_length = 31; + gfc_option.warn_tabs = 0; break; case OPT_std_f2003: |