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 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-14  Tobias Schl\81ü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 (file)
--- 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 (file)
--- 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 (file)
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