diff options
Diffstat (limited to 'gcc')
| -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 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 |