This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/70006] Duplicate errors "label not defined"
- From: "kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Sat, 02 Jul 2016 20:17:20 +0000
- Subject: [Bug fortran/70006] Duplicate errors "label not defined"
- Auto-submitted: auto-generated
- References: <bug-70006-4 at http dot gcc dot gnu dot org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70006
--- Comment #7 from kargl at gcc dot gnu.org ---
Index: io.c
===================================================================
--- io.c (revision 237945)
+++ io.c (working copy)
@@ -3052,7 +3052,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc)
&& dt->format_label->defined == ST_LABEL_UNKNOWN)
{
gfc_error ("FORMAT label %d at %L not defined", dt->format_label->value,
- &dt->format_label->where);
+ loc);
return false;
}
Index: resolve.c
===================================================================
--- resolve.c (revision 237945)
+++ resolve.c (working copy)
@@ -8943,7 +8949,7 @@ resolve_branch (gfc_st_label *label, gfc
if (label->defined == ST_LABEL_UNKNOWN)
{
gfc_error ("Label %d referenced at %L is never defined", label->value,
- &label->where);
+ &code->loc);
return;
}