diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-11-23 18:14:10 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-11-23 18:14:10 +0100 |
| commit | 16db2a6aa770f2e3285f3f4e9ab955a7c4cce5c1 (patch) | |
| tree | 06de2eb8f0f1e7d94d2dcaa8a34b6bc4b1206af3 /gcc/fortran/scanner.c | |
| parent | 5e383359eac455ec79830a25b81d7b4bc36abc7a (diff) | |
| download | gcc-16db2a6aa770f2e3285f3f4e9ab955a7c4cce5c1.zip gcc-16db2a6aa770f2e3285f3f4e9ab955a7c4cce5c1.tar.gz gcc-16db2a6aa770f2e3285f3f4e9ab955a7c4cce5c1.tar.bz2 | |
gfortran.h (gfc_option_t): Remove warn_tabs.
2014-11-23 Tobias Burnus <burnus@net-b.de>
Manuel López-Ibáñez <manu@gcc.gnu.org>
gcc/fortran/
* gfortran.h (gfc_option_t): Remove warn_tabs.
* lang.opt (Wpedantic): Add.
(Wtabs): Use Var and LangEnabledBy.
* options.c (gfc_init_options, gfc_post_options,
set_Wall): Remove -Wtabs handling.
(gfc_handle_option): Update -std=, remove OPT_Wtabs.
* scanner.c (gfc_gobble_whitespace): Update for
flag-variable renaming.
(load_line): Ditto. Pass warn flag to diagnostic.
gcc/testsuite/
* gfortran.dg/tab_continuation.f: Update dg-*.
Co-Authored-By: Manuel López-Ibáñez <manu@gcc.gnu.org>
From-SVN: r217985
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 2c0d4c3..e0b9a3bb 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1382,7 +1382,7 @@ gfc_gobble_whitespace (void) /* Issue a warning for nonconforming tabs. We keep track of the line number because the Fortran matchers will often back up and the same line will be scanned multiple times. */ - if (!gfc_option.warn_tabs && c == '\t') + if (warn_tabs && c == '\t') { int cur_linenum = LOCATION_LINE (gfc_current_locus.lb->location); if (cur_linenum != linenum) @@ -1534,12 +1534,12 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pbuflen, const int *first_char) { found_tab = true; - if (!gfc_option.warn_tabs && seen_comment == 0 - && current_line != linenum) + if (warn_tabs && seen_comment == 0 && current_line != linenum) { linenum = current_line; - gfc_warning_now_2 ("Nonconforming tab character in column %d " - "of line %d", i+1, linenum); + gfc_warning_now_2 (OPT_Wtabs, + "Nonconforming tab character in column %d " + "of line %d", i+1, linenum); } while (i < 6) |