warning for for unused labels incorrect

[Steve Kargl]

On Sat, Mar 18, 2006 at 09:08:25PM -0500, Jack Howarth wrote:
> Steve,
>    I see one of the commits in the gcc-patches mailing list as...
> 
> http://gcc.gnu.org/ml/gcc-patches/2006-02/msg01063.html
> 
> What was the other one you found? Also it seems that Tobi is just
> submitting his patches for trunk with no reference of addition to the 4.1
> branch at a later date. Hopefully the gfortran developers will keep
> an eye on these bug fix patches so that we don't end up with too many
> significant bug fixes in the trunk only. Just from the view of limiting
> the code divergence between the two branches (4.1 and trunk) that can't
> be a good idea.

This is probably the one that fixes the issue.

2006-02-14  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

        PR fortran/26277
        * io.c (match_ltag): Mark label as referenced.

The other patch is

2006-01-18  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

        PR fortran/18540
        PR fortran/18937
        * gfortran.h (BBT_HEADER): Move definition up.
        (gfc_st_label): Add BBT_HEADER, remove 'prev' and 'next'.
        * io.c (format_asterisk): Adapt initializer.
        * resolve.c (resolve_branch): Allow FORTRAN 66 cross-block GOTOs
        as extension.
        (warn_unused_label): Take gfc_st_label label as argument, adapt to
        new data structure.
        (gfc_resolve): Adapt call to warn_unused_label.
        * symbol.c (compare_st_labels): New function.
        (gfc_free_st_label, free_st_labels, gfc_get_st_label): Convert to
        using balanced binary tree.
        * decl.c (match_char_length, gfc_match_old_kind_spec): Do away
        with 'cnt'.
        (warn_unused_label): Adapt to binary tree.
        * match.c (gfc_match_small_literal_int): Only set cnt if non-NULL.
        * primary.c (match_kind_param): Do away with cnt.

I have checked what Tobi has committed to 4.1.

-- 
Steve