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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162518 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index cdd4746..7869d51 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index acc2f5a..744abeb 100644 (file)
--- a/gcc/fortran/scanner.c
+++ b/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 == '!')