diff options
| author | Richard Guenther <rguenth@gcc.gnu.org> | 2005-04-15 20:35:26 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2005-04-15 20:35:26 +0000 |
| commit | ba1defa540feb70b515dd5d19ec8193d4bc37325 (patch) | |
| tree | a87dbb76a3b350867698fa6a6d1a17b4d4d0a473 /gcc/fortran/parse.c | |
| parent | 472573f9f92704b3a9bb861bbb31e2ef8d14ff53 (diff) | |
| download | gcc-ba1defa540feb70b515dd5d19ec8193d4bc37325.zip gcc-ba1defa540feb70b515dd5d19ec8193d4bc37325.tar.gz gcc-ba1defa540feb70b515dd5d19ec8193d4bc37325.tar.bz2 | |
re PR fortran/14569 ([4.0 only] should not warn about truncated comment lines)
2005-04-15 Richard Guenther <rguenth@gcc.gnu.org>
PR fortran/14569
* gfortran.h (gfc_linebuf): Add truncated field.
* parse.c (next_statement): Handle warning for truncated
lines.
* scanner.c (load_line): Return if line was truncated.
No longer warn for truncated lines. Remove unused parameters.
(load_file): Store load_line return value to linebuf.
(gfc_error_recovery): Do not advance line at the end.
From-SVN: r98210
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index a3f0ac1..94bf6d0 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -479,7 +479,13 @@ next_statement (void) gfc_buffer_error (1); if (gfc_at_eol ()) - gfc_advance_line (); + { + if (gfc_option.warn_line_truncation + && gfc_current_locus.lb->truncated) + gfc_warning_now ("Line truncated at %C"); + + gfc_advance_line (); + } gfc_skip_comments (); |