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/parse.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/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index a0da448..87f36df 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -334,6 +334,10 @@ next_free (void) do c = gfc_next_char (); while (ISDIGIT(c)); + + if (!gfc_is_whitespace (c)) + gfc_error_now ("Non-numeric character in statement label at %C"); + } else { |