* decl.c (gfc_match_end): Use locus of END when eos is an error.
From-SVN: r91899
This commit is contained in:
parent
40f2165e2d
commit
59ce85b543
|
@ -3,6 +3,8 @@
|
||||||
* resolve.c (resolve_code): Impose correct restrictions on
|
* resolve.c (resolve_code): Impose correct restrictions on
|
||||||
assigned variable.
|
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>
|
2004-12-02 Steven G. Kargl <kargls@comcast.net>
|
||||||
Paul Brook <paul@codesourcery.com>
|
Paul Brook <paul@codesourcery.com>
|
||||||
|
|
||||||
|
|
|
@ -2576,8 +2576,8 @@ gfc_match_end (gfc_statement * st)
|
||||||
if (!eos_ok)
|
if (!eos_ok)
|
||||||
{
|
{
|
||||||
/* We would have required END [something] */
|
/* We would have required END [something] */
|
||||||
gfc_error ("%s statement expected at %C",
|
gfc_error ("%s statement expected at %L",
|
||||||
gfc_ascii_statement (*st));
|
gfc_ascii_statement (*st), &old_loc);
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue