re PR fortran/42852 (gfortran -Wall warns about truncated lines when only a…

re PR fortran/42852 (gfortran -Wall warns about truncated lines when only a continuation character is truncated)

2010-07-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/42852
	* scanner.c (gfc_next_char_literal): Enable truncation warning for
	free-form '&'.

From-SVN: r162518

gcc/fortran/ChangeLog

+2010-07-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/42852
+	* scanner.c (gfc_next_char_literal): Enable truncation warning for
+	free-form '&'.
+
 2010-07-25  Mikael Morin  <mikael@gcc.gnu.org>
 
 	PR fortran/44660

gcc/fortran/scanner.c

@@ -1581,7 +1581,8 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pbuflen, const int *first_char)
 	      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 == '!')