diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2001-04-02 23:23:28 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2001-04-02 23:23:28 +0200 |
| commit | caf4d6e06910095bd455d53f72a6094fff41c66c (patch) | |
| tree | f35b018ad67eed675319354f29d76af391ff1341 /gcc/f | |
| parent | 0003efa0b39dc5265f401acd9790dea95ad2a121 (diff) | |
| download | gcc-caf4d6e06910095bd455d53f72a6094fff41c66c.zip gcc-caf4d6e06910095bd455d53f72a6094fff41c66c.tar.gz gcc-caf4d6e06910095bd455d53f72a6094fff41c66c.tar.bz2 | |
lex.c (ffelex_hash_): Avoid eating one whole line after #line.
* lex.c (ffelex_hash_): Avoid eating one whole line after
#line.
* g77.f-torture/compile/20010321-1.f: New test.
From-SVN: r41015
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/lex.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/f/lex.c b/gcc/f/lex.c index ea0ef05..d5aaa158 100644 --- a/gcc/f/lex.c +++ b/gcc/f/lex.c @@ -1412,6 +1412,12 @@ ffelex_hash_ (FILE *finput) input_filename = old_input_filename; error ("Use `#line ...' instead of `# ...' in first line"); } + if (c == '\n' || c == EOF) + { + if (token != NULL && !ffelex_kludge_flag_) + ffelex_token_kill (token); + return c; + } } else error ("invalid #-line"); |