diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-15 06:48:09 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-02-15 06:48:09 +0000 |
| commit | 720ff788f2f931c8568ee00043fdb979ffe37b84 (patch) | |
| tree | e4f5d0e93d890db1c68d1ba9a9f78929c5c4ee31 | |
| parent | fd2d61d6c69c27497f87147b0f8364854c1a71d4 (diff) | |
| download | ppe42-gcc-720ff788f2f931c8568ee00043fdb979ffe37b84.tar.gz ppe42-gcc-720ff788f2f931c8568ee00043fdb979ffe37b84.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121982 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 974ee46d9fe..bf9fe04d748 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 8667fbc6767..1f1593b3d15 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 |
