diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-27 22:42:54 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-05-27 22:42:54 +0000 |
| commit | b16cc039c4aa9326326d57538534fdb93a50e0f9 (patch) | |
| tree | 8e88ffb1fff8e9d42cf5097ffb4aab4ff0654828 /gcc/fortran/parse.c | |
| parent | c2de0c194e27767937fe5fbae12aa96638768c4c (diff) | |
| download | gcc-b16cc039c4aa9326326d57538534fdb93a50e0f9.zip gcc-b16cc039c4aa9326326d57538534fdb93a50e0f9.tar.gz gcc-b16cc039c4aa9326326d57538534fdb93a50e0f9.tar.bz2 | |
re PR fortran/31812 (Better message than "syntax error" when truncating long lines)
2007-05-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/31812
* parse.c (next_statement): Warn for truncated lines if source is free
form.
From-SVN: r125119
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 9e47ea4..46604cf 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -653,7 +653,7 @@ next_statement (void) if (gfc_at_eol ()) { - if (gfc_option.warn_line_truncation + if ((gfc_option.warn_line_truncation || gfc_current_form == FORM_FREE) && gfc_current_locus.lb && gfc_current_locus.lb->truncated) gfc_warning_now ("Line truncated at %C"); |