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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 11b6e92..59278dc 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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. + 2007-05-27 Paul Thomas <pault@gcc.gnu.org> Tobias Burnus <burnus@net-b.de> 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"); |