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
This commit is contained in:
parent
c2de0c194e
commit
b16cc039c4
@ -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>
|
||||
|
||||
|
@ -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");
|
||||
|
Loading…
Reference in New Issue
Block a user