re PR fortran/27553 ([4.1 only] Testsuite ICE with -Wunused-labels)

	PR fortran/27553
	* parse.c (next_free): Return instead of calling decode_statement
	upon error.
	* gfortran.dg/label_5.f90: New test.

From-SVN: r113712

gcc/fortran/ChangeLog

+2006-05-11  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/27553
+	* parse.c (next_free): Return instead of calling decode_statement
+	upon error.
+
 2005-05-10  Thomas Koenig  <Thomas.Koenig@online.de>
 
 	PR fortran/27470

gcc/fortran/parse.c

@@ -439,6 +439,7 @@ next_free (void)
 	  if (!gfc_is_whitespace (c))
 	    gfc_error_now ("Non-numeric character in statement label at %C");
 
+	  return ST_NONE;
 	}
       else
 	{

gcc/testsuite/ChangeLog

+2006-05-11  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/27553
+	* gfortran.dg/label_5.f90: New test.
+
 2006-05-11  Joseph S. Myers  <joseph@codesourcery.com>
 
 	* lib/target-supports.exp (check_effective_target_powerpc_fprs,

gcc/testsuite/gfortran.dg/label_5.f90

+! { dg-do compile }
+! { dg-options "-Wall" }
+! PR fortran/27553
+program pr27553
+10: a=10   ! { dg-error "character in statement" }
+end program