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:
Jerry DeLisle 2007-05-27 22:42:54 +00:00
parent c2de0c194e
commit b16cc039c4
2 changed files with 7 additions and 1 deletions

View File

@ -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>

View File

@ -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");