[Bug fortran/70006] Duplicate errors "label not defined"

[kargl at gcc dot gnu.org]

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;
     }