[patch,fortran] PR42852 -Wall warns about truncated lines when only a continuation character is truncated

[Jerry DeLisle]

On 07/25/2010 02:23 AM, Tobias Burnus wrote:
> integer :: a  [many spaces]&
> , b
> end
>
> The error is:
> , b
>   1
> Error: Invalid character in name at (1)
>
> Expected: Additionally, one should see
>     Warning: Line truncated at (1)
> In case of free form code, the '&' is significant - and it can easily
> happen that just the continuation character moves beyond column 132.
>

I will commit the following shortly as obvious to give the warning of free-form
continuation gets chopped.

Regression tested on x86-64-linux-gnu

Regards,

Jerry

Index: scanner.c
===================================================================
--- scanner.c	(revision 162512)
+++ scanner.c	(working copy)
@@ -1581,7 +1581,8 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pb
  	      if (!trunc_warn && c != '!')
  		trunc_warn = true;

-	      if (trunc_warn && (c == '&' || c == '!'))
+	      if (trunc_warn && ((gfc_current_form == FORM_FIXED && c == '&')
+		  || c == '!'))
  		trunc_warn = false;

  	      if (c == '!')