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 /gcc/fortran/io.c | |
| 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
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 4 |
1 files changed, 4 insertions, 0 deletions
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; } |