parse.c (next_free): Use consistent error string between free-form and fixed-form for illegal...

fortran/

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

testsuite/

	* gfortran.dg/label_1.f90: Adjust dg-error.

From-SVN: r113053

gcc/fortran/ChangeLog

+2006-04-18  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.
+
 2006-04-18  Steve Ellcey  <sje@cup.hp.com>
 
 	* trans-io.c (gfc_build_io_library_fndecls): Align pad.

gcc/fortran/parse.c

@@ -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;
 }

gcc/testsuite/ChangeLog

+2006-04-18  Bernhard Fischer  <aldot@gcc.gnu.org>
+
+	* gfortran.dg/label_1.f90: Adjust dg-error.
+
 2006-04-16  Roger Sayle  <roger@eyesopen.com>
 
 	PR target/26961

gcc/testsuite/gfortran.dg/label_1.f90

@@ -3,7 +3,7 @@
 
 program a
 0056780 continue    ! { dg-error "Too many digits" }
-0 continue          ! { dg-error "Statement label at" }
+0 continue          ! { dg-error "Zero is not a valid statement label" }
   stop 001234       ! { dg-error "Too many digits" }
 end program a