diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2006-01-02 22:23:35 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2006-01-02 22:23:35 +0000 |
| commit | 99f1e970919e08ce15113e28618ec93ddc0cddc4 (patch) | |
| tree | 7afc0fef569cec594dd978ca946f9533ac38a401 /gcc/fortran/match.c | |
| parent | a9cc9cc69a8de25ba338b5021dc7667ad2610f7f (diff) | |
| download | gcc-99f1e970919e08ce15113e28618ec93ddc0cddc4.zip gcc-99f1e970919e08ce15113e28618ec93ddc0cddc4.tar.gz gcc-99f1e970919e08ce15113e28618ec93ddc0cddc4.tar.bz2 | |
re PR fortran/24640 ([4.1] ice with invalid label)
PR fortran/24640
* parse.c (next_free): Check for whitespace after the label.
* match.c (gfc_match_small_literal_int): Initialize cnt variable.
* gfortran.dg/label_2.f90: New test.
From-SVN: r109246
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index e28127b..a07de60 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -151,6 +151,7 @@ gfc_match_small_literal_int (int *value, int *cnt) gfc_gobble_whitespace (); c = gfc_next_char (); + *cnt = 0; if (!ISDIGIT (c)) { |