diff mbox

[Fortran,committed] Change two gfc_warning_now_1 to common diagnostics

Message ID 5479A6C1.4040000@net-b.de
State New
Headers show

Commit Message

Tobias Burnus Nov. 29, 2014, 10:58 a.m. UTC 
It turned out that those two could be converted. At least two of the 
remaining three gfc_warning_now_1 currently can't (they lead to ICEs).

Committed as Rev. 218180.

Tobias
diff mbox

Patch

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 218179)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -1,4 +1,9 @@ 
 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>
 
 	* lang.opt (Wtabs): Combine duplicated item into a single
Index: gcc/fortran/scanner.c
===================================================================
--- gcc/fortran/scanner.c	(Revision 218179)
+++ gcc/fortran/scanner.c	(Arbeitskopie)
@@ -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");
 	    }
 	}
     }