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

[kargl at gcc dot gnu dot org]

------- Comment #3 from kargl at gcc dot gnu dot org  2005-12-16 23:32 -------
Subject: Bug 25055

Author: kargl
Date: Fri Dec 16 23:32:29 2005
New Revision: 108692

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=108692
Log:
2005-12-10  Steven G. Kargl <kargls@comcast.net>

        PR fortran/25106
        PR fortran/25055
        * match.c (gfc_match_small_literal_int): Add cnt argument;
        (gfc_match_st_label,gfc_match_stopcode): Account for cnt argument.
        * match.h (gfc_match_small_literal_int): Update prototype.
        * decl.c (match_char_length,gfc_match_old_kind_spec): Account for cnt.
        * parse.c (next_free): Ditto.
        * primary.c (match_kind_param): Ditto.

        gfortran.dg/label_1.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/label_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/match.c
    trunk/gcc/fortran/match.h
    trunk/gcc/fortran/parse.c
    trunk/gcc/fortran/primary.c
    trunk/gcc/testsuite/ChangeLog


-- 


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