re PR fortran/24549 ([4.1 only] ICE with invalid pseudo-declaration statement)

	PR fortran/24549
	* parse.c (reject_statement): Clear gfc_new_block.
	* gfortran.dg/error_recovery_1.f90: New test.

From-SVN: r113671

gcc/fortran/ChangeLog

+2006-05-10  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/24549
+	* parse.c (reject_statement): Clear gfc_new_block.
+
 2006-05-09  Steven G. Kargl  <kargls@comcast.net>
 
 	* invoke.texi: Missed file in previous commit.  Update

gcc/fortran/parse.c

@@ -1292,7 +1292,7 @@ accept_statement (gfc_statement st)
 static void
 reject_statement (void)
 {
-
+  gfc_new_block = NULL;
   gfc_undo_symbols ();
   gfc_clear_warning ();
   undo_new_statement ();

gcc/testsuite/ChangeLog

+2006-05-10  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR fortran/24549
+	* gfortran.dg/error_recovery_1.f90: New test.
+
 2006-05-10  Richard Guenther  <rguenther@suse.de>
 
 	PR tree-optimization/27302

gcc/testsuite/gfortran.dg/error_recovery_1.f90

+! { dg-do compile }
+! PR fortran/24549 (and duplicate PR fortran/27487)
+module gfcbug29_import
+  interface
+     subroutine foo (x)
+       something :: dp ! { dg-error "Unclassifiable statement" }
+       real (kind=dp) :: x ! { dg-error "has not been declared or is a variable, which does not reduce to a constant expression" }
+     end subroutine foo
+  end interface
+end module gfcbug29_import
+
+subroutine FOO
+    X :: I ! { dg-error "Unclassifiable statement" }
+    equivalence (I,I)
+end