From patchwork Sun Jul 25 18:51:40 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [fortran] PR42852 -Wall warns about truncated lines when only a
 continuation character is truncated
Date: Sun, 25 Jul 2010 08:51:40 -0000
From: Jerry DeLisle <jvdelisle@verizon.net>
X-Patchwork-Id: 59877
Message-Id: <4C4C87BC.3020507@verizon.net>
To: Tobias Burnus <burnus@net-b.de>
Cc: gfortran <fortran@gcc.gnu.org>, gcc patches <gcc-patches@gcc.gnu.org>

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 == '!')