From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 29 Nov 2014 10:56:04 +0000 (+0100)
Subject: scanner.c (skip_free_comments, [...]): Use gfc_warning_now instead of ..._now_1.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d0e168a01625742725503a68c1ebf8b64d5f8f11;p=gcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a6e9035a29f..5f8e5928dbc 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index 884fe70cb3e..ec7e8ae65a1 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -775,10 +775,10 @@ skip_free_comments (void)
 				}
 			    }
 			  else
-			    gfc_warning_now_1 ("!$OMP at %C starts a commented "
-					       "line as it neither is followed "
-					       "by a space nor is a "
-					       "continuation line");
+			    gfc_warning_now ("!$OMP at %C starts a commented "
+					     "line as it neither is followed "
+					     "by a space nor is a "
+					     "continuation line");
 			}
 		      gfc_current_locus = old_loc;
 		      next_char ();
@@ -1388,7 +1388,7 @@ gfc_gobble_whitespace (void)
 	  if (cur_linenum != linenum)
 	    {
 	      linenum = cur_linenum;
-	      gfc_warning_now_1 ("Nonconforming tab character at %C");
+	      gfc_warning_now (OPT_Wtabs, "Nonconforming tab character at %C");
 	    }
 	}
     }