From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Wed, 8 Dec 2004 12:29:44 +0000 (+0100)
Subject: * decl.c (gfc_match_end): Use locus of END when eos is an error.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=59ce85b543446f3df435a09f5212bdcf1ea8128b;p=gcc.git

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

From-SVN: r91899
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 96c67b1fcea..4b1f41f7421 100644
--- a/gcc/fortran/ChangeLog
+++ b/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>
 
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 5f7e8462c2d..97b5e1f15e8 100644
--- a/gcc/fortran/decl.c
+++ b/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;
 	}