OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/31812 (Better message than "syntax error" when truncating long lines)

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
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> 2007-05-27 Paul Thomas <pault@gcc.gnu.org>
Tobias Burnus <burnus@net-b.de> Tobias Burnus <burnus@net-b.de>

2
gcc/fortran/parse.c
View File

@ -653,7 +653,7 @@ next_statement (void)
if (gfc_at_eol ()) 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
&& gfc_current_locus.lb->truncated) && gfc_current_locus.lb->truncated)
gfc_warning_now ("Line truncated at %C"); gfc_warning_now ("Line truncated at %C");