From: Tobias Schlüter <tobi@gcc.gnu.org>
Date: Tue, 14 Feb 2006 19:21:07 +0000 (+0100)
Subject: re PR fortran/26277 (false warning about unused label for a warning used in err=)
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=89031799f4009b0416164a7e77a7b008e63d94ad;p=platform%2Fupstream%2Fgcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 7a36057..faf6975 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-14  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/26277
+	* io.c (match_ltag): Mark label as referenced.
+
 2006-02-14  Jakub Jelinek  <jakub@redhat.com>
 	    Richard Henderson  <rth@redhat.com>
 	    Diego Novillo  <dnovillo@redhat.com>
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;
 }
 
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d12f874..cb15ef6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-14  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/26277
+	* gfortran.dg/label_4.f90: New.
+
 2006-02-14  Jakub Jelinek  <jakub@redhat.com>
 	    Diego Novillo  <dnovillo@redhat.com>
 	    Uros Bizjak  <uros@kss-loka.si>
diff --git a/gcc/testsuite/gfortran.dg/label_4.f90 b/gcc/testsuite/gfortran.dg/label_4.f90
new file mode 100644
index 0000000..68b2291
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/label_4.f90
@@ -0,0 +1,8 @@
+! { dg-do compile }
+! { dg-options "-Wunused-labels" }
+! PR 26277
+! We used to give an incorect warning about label 99 not being referenced
+  open(unit=12,err=99)
+99 print *,"could not open file ..."
+98 continue ! { dg-warning "Label 98 .* defined but not used" }
+end