diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2006-02-14 20:21:07 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2006-02-14 20:21:07 +0100 |
| commit | 89031799f4009b0416164a7e77a7b008e63d94ad (patch) | |
| tree | be5d340359c9c2457ac41df644cd231c22fd145e | |
| parent | fb9c6d49ff44fcf81344244d5fa95121c0d93808 (diff) | |
| download | gcc-89031799f4009b0416164a7e77a7b008e63d94ad.zip gcc-89031799f4009b0416164a7e77a7b008e63d94ad.tar.gz gcc-89031799f4009b0416164a7e77a7b008e63d94ad.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 4 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/label_4.f90 | 8 |
4 files changed, 22 insertions, 0 deletions
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 Schlter <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 Schlter <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 |