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

gcc/fortran/ChangeLog

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

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