From b16cc039c4aa9326326d57538534fdb93a50e0f9 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 27 May 2007 22:42:54 +0000 Subject: [PATCH] re PR fortran/31812 (Better message than "syntax error" when truncating long lines) 2007-05-27 Jerry DeLisle PR fortran/31812 * parse.c (next_statement): Warn for truncated lines if source is free form. From-SVN: r125119 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/parse.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 11b6e925108..59278dc2349 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-05-27 Jerry DeLisle + + PR fortran/31812 + * parse.c (next_statement): Warn for truncated lines if source is free + form. + 2007-05-27 Paul Thomas Tobias Burnus diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 9e47ea416e5..46604cfd3cd 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");