Commit d0e168a0 by Tobias Burnus Committed by Tobias Burnus

scanner.c (skip_free_comments, [...]): Use gfc_warning_now instead of ..._now_1.

2014-11-29  Tobias Burnus  <burnus@net-b.de>

        * scanner.c (skip_free_comments, gfc_gobble_whitespace): Use
        gfc_warning_now instead of ..._now_1.

From-SVN: r218180
parent 81fee4a7
2014-11-29 Tobias Burnus <burnus@net-b.de> 2014-11-29 Tobias Burnus <burnus@net-b.de>
* scanner.c (skip_free_comments, gfc_gobble_whitespace): Use
gfc_warning_now instead of ..._now_1.
2014-11-29 Tobias Burnus <burnus@net-b.de>
Manuel López-Ibáñez <manu@gcc.gnu.org> Manuel López-Ibáñez <manu@gcc.gnu.org>
* lang.opt (Wtabs): Combine duplicated item into a single * lang.opt (Wtabs): Combine duplicated item into a single
......
...@@ -775,7 +775,7 @@ skip_free_comments (void) ...@@ -775,7 +775,7 @@ skip_free_comments (void)
} }
} }
else else
gfc_warning_now_1 ("!$OMP at %C starts a commented " gfc_warning_now ("!$OMP at %C starts a commented "
"line as it neither is followed " "line as it neither is followed "
"by a space nor is a " "by a space nor is a "
"continuation line"); "continuation line");
...@@ -1388,7 +1388,7 @@ gfc_gobble_whitespace (void) ...@@ -1388,7 +1388,7 @@ gfc_gobble_whitespace (void)
if (cur_linenum != linenum) if (cur_linenum != linenum)
{ {
linenum = cur_linenum; linenum = cur_linenum;
gfc_warning_now_1 ("Nonconforming tab character at %C"); gfc_warning_now (OPT_Wtabs, "Nonconforming tab character at %C");
} }
} }
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment