1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index c88c74a..618d056 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -972,6 +972,10 @@ match_ltag (const io_tag * tag, gfc_st_label ** label)
       return MATCH_ERROR;
     }
 
+  if (m == MATCH_YES 
+      && gfc_reference_st_label (*label, ST_LABEL_TARGET) == FAILURE)
+    return MATCH_ERROR;
+
   return m;
 }