[patch] unify free- and fixed-form diagnostic messages

Bernhard Fischer rep.nop@aon.at
Tue Mar 21 17:03:00 GMT 2006


Hi,

Attached patch makes two warning messages consistent between fixed-form
and free-form.

Ok for trunk and 4.1?

2006-03-21  Bernhard Fischer  <aldot@gcc.gnu.org>
	* parse.c (next_free): use consistent error string between
	free-form and fixed-form for illegal statement label of zero.
	(next_fixed): use consistent warning string between free-form
	and fixed-form for statement labels for empty statements.

-------------- next part --------------
--- gcc-4.2.oorig/gcc/fortran/parse.c	2006-02-21 14:05:18.000000000 +0100
+++ gcc-4.2/gcc/fortran/parse.c	2006-03-21 17:35:28.000000000 +0100
@@ -428,9 +428,9 @@ next_free (void)
 
           if (cnt > 5)
 	    gfc_error_now ("Too many digits in statement label at %C");
-	  
+
 	  if (c == 0)
-	    gfc_error_now ("Statement label at %C is zero");
+	    gfc_error_now ("Zero is not a valid statement label at %C");
 
 	  do
 	    c = gfc_next_char ();
@@ -600,7 +600,7 @@ next_fixed (void)
 
 blank_line:
   if (digit_flag)
-    gfc_warning ("Statement label in blank line will be ignored at %C");
+    gfc_warning ("Ignoring statement label in empty statement at %C");
   gfc_advance_line ();
   return ST_NONE;
 }


More information about the Fortran mailing list