From 89031799f4009b0416164a7e77a7b008e63d94ad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= <tobi@gcc.gnu.org>
Date: Tue, 14 Feb 2006 20:21:07 +0100
Subject: re PR fortran/26277 (false warning about unused label for a warning
 used in err=)

fortran/
	PR fortran/26277
	* io.c (match_ltag): Mark label as referenced.
testsuite/
	PR fortran/26277
	* gfortran.dg/label_4.f90: New.

From-SVN: r110993
---
 gcc/fortran/io.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'gcc/fortran/io.c')

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;
 }
 
-- 
cgit v1.1