diff options
| author | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-15 20:35:26 +0000 |
|---|---|---|
| committer | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-15 20:35:26 +0000 |
| commit | 702cee9857fb0c6f1c70a9bb987297e7e3c31a59 (patch) | |
| tree | a87dbb76a3b350867698fa6a6d1a17b4d4d0a473 /gcc/fortran/parse.c | |
| parent | a27cc1c02ff96d7d65150fd75ca70103ceb8347d (diff) | |
| download | gcc-702cee9857fb0c6f1c70a9bb987297e7e3c31a59.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98210 138bc75d-0d04-0410-961f-82ee72b054a4
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 a3f0ac19539..94bf6d0d28d 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 (); |