* decl.c (gfc_match_end): Use locus of END when eos is an error.

From-SVN: r91899

gcc/fortran/ChangeLog

@@ -3,6 +3,8 @@
 	* resolve.c (resolve_code): Impose correct restrictions on
 	assigned variable.
 
+	* decl.c (gfc_match_end): Use locus of END when eos is an error.
+
 2004-12-02  Steven G. Kargl  <kargls@comcast.net>
 	Paul Brook  <paul@codesourcery.com>
 

gcc/fortran/decl.c

@@ -2576,8 +2576,8 @@ gfc_match_end (gfc_statement * st)
       if (!eos_ok)
 	{
 	  /* We would have required END [something]  */
-	  gfc_error ("%s statement expected at %C",
-		     gfc_ascii_statement (*st));
+	  gfc_error ("%s statement expected at %L",
+		     gfc_ascii_statement (*st), &old_loc);
 	  goto cleanup;
 	}