diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-02-15 06:48:09 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-02-15 06:48:09 +0000 |
| commit | 0267ffdccbf2b05c67f44c6411b9e80f8d08dd49 (patch) | |
| tree | e4f5d0e93d890db1c68d1ba9a9f78929c5c4ee31 | |
| parent | f4f81a669aec8c59538c9ab4373ae7e58897047f (diff) | |
| download | gcc-0267ffdccbf2b05c67f44c6411b9e80f8d08dd49.zip gcc-0267ffdccbf2b05c67f44c6411b9e80f8d08dd49.tar.gz gcc-0267ffdccbf2b05c67f44c6411b9e80f8d08dd49.tar.bz2 | |
re PR fortran/30779 ([4.1, 4.2 only] incomplete file triggers ICE)
2007-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30779
* scanner.c (gfc_next_char_literal): Add check for end of file after
call to advance_line.
From-SVN: r121982
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 974ee46..bf9fe04 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/30779 + * scanner.c (gfc_next_char_literal): Add check for end of file after + call to advance_line. + 2007-02-14 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/30799 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 8667fbc..1f1593b 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -704,6 +704,9 @@ restart: skip_comment_line (); else gfc_advance_line (); + + if (gfc_at_eof()) + goto not_continuation; /* We've got a continuation line. If we are on the very next line after the last continuation, increment the continuation line count and |