[Bug fortran/25055] [4.1] numeric STOP code should be limited to five digits

["kargl at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #5 from kargl at gcc dot gnu dot org  2005-12-31 18:55 -------
Subject: Bug 25055

Author: kargl
Date: Sat Dec 31 18:55:30 2005
New Revision: 109199

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=109199
Log:
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.


Added:
    branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/label_1.f90
Modified:
    branches/gcc-4_1-branch/gcc/fortran/ChangeLog
    branches/gcc-4_1-branch/gcc/fortran/decl.c
    branches/gcc-4_1-branch/gcc/fortran/io.c
    branches/gcc-4_1-branch/gcc/fortran/match.c
    branches/gcc-4_1-branch/gcc/fortran/match.h
    branches/gcc-4_1-branch/gcc/fortran/parse.c
    branches/gcc-4_1-branch/gcc/fortran/primary.c
    branches/gcc-4_1-branch/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25055