diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-27 22:42:54 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-27 22:42:54 +0000 |
| commit | e3bd42aa132a0629c5e0f11f3bc91eeada9850ff (patch) | |
| tree | 8e88ffb1fff8e9d42cf5097ffb4aab4ff0654828 | |
| parent | 04d2ca03d97e92e97c3ce1c1581d64b5f4fc8841 (diff) | |
| download | ppe42-gcc-e3bd42aa132a0629c5e0f11f3bc91eeada9850ff.tar.gz ppe42-gcc-e3bd42aa132a0629c5e0f11f3bc91eeada9850ff.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125119 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 2 |
2 files changed, 7 insertions, 1 deletions
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 <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> 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"); |
