This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
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
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |