From 59ce85b543446f3df435a09f5212bdcf1ea8128b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?=
<tobias.schlueter@physik.uni-muenchen.de>
Date: Wed, 8 Dec 2004 13:29:44 +0100
Subject: [PATCH] * decl.c (gfc_match_end): Use locus of END when eos is an
error.
From-SVN: r91899
---
gcc/fortran/ChangeLog | 2 ++
gcc/fortran/decl.c | 4 ++--
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 96c67b1fcea0..4b1f41f74218 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 5f7e8462c2d7..97b5e1f15e83 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;
}
--
GitLab