gfortran patch backported to 4.1

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

The attached patch and test case have been committed to
4.1 after back porting my original patch.  The 4.1 patch
is slightly different from the trunk patch because this
trunk commit

    2005-12-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

        PR fortran/25106
        * parse.c (next_free): Use new prototype for gfc_match_st_label.
        Correctly emit hard error if a label is zero.
        * match.c (gfc_match_st_label): Never allow zero as a valid
        label.
        (gfc_match, gfc_match_do, gfc_match_goto): Use new prototype for
        gfc_match_st_label.
        * primary.c (): Use new prototype for gfc_match_st_label.
        * io.c (): Likewise.
        * match.h: Likewise.

was never committed to 4.1.  The 4.1 patch's ChangeLog is

2005-12-31  Steven G. Kargl <kargls@comcast.net>

    PR fortran/25106
    PR fortran/25055
    * io.c (match_dt_format): Remove second arg in gfc_match_st_label.
    * match.c (gfc_match_small_literal_int): Add cnt argument;
    (gfc_match_st_label,gfc_match_stopcode): Account for cnt argument.
    (gfc_match_st_label): Remove allow_zero (second argument), and use 
    cnt for errors. 
    (gfc_match_do,gfc_match_goto):  Remove second arg in gfc_match_st_label
    * match.h (gfc_match_small_literal_int,gfc_match_st_label):
    Update prototypes.
    * decl.c (match_char_length,gfc_match_old_kind_spec): Account for cnt.
    * parse.c (next_free): Account for cnt; Remove second arg in 
    gfc_match_st_label
    * primary.c (match_kind_param): Ditto.


    PR fortran/25106
    PR fortran/25055
    * gfortran.dg/label_1.f90: New test.

This was bootstrapped on i386 and amd64-*-freebsd.  There
were no testsuite regressions.

-- 
Steve

Attachment: label_1.f90
Description: Text document

Attachment: label_4.1.diff
Description: Text document