From 85c28850437c5446d4a0df004e0441b8bc7f757b Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sun, 25 Jul 2010 15:35:04 +0000
Subject: [PATCH] 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
* gfortran.dg/wtruncate_fix.f: New test.
From-SVN: r162514
---
gcc/testsuite/ChangeLog | 5 +++++
gcc/testsuite/gfortran.dg/wtruncate_fix.f | 12 ++++++++++++
2 files changed, 17 insertions(+)
create mode 100644 gcc/testsuite/gfortran.dg/wtruncate_fix.f
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8f722ed7aa58..5771a063137d 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/42852
+ * gfortran.dg/wtruncate_fix.f: New test.
+
2010-07-25 H.J. Lu <hongjiu.lu@intel.com>
PR testsuite/45068
diff --git a/gcc/testsuite/gfortran.dg/wtruncate_fix.f b/gcc/testsuite/gfortran.dg/wtruncate_fix.f
new file mode 100644
index 000000000000..082c70ff766d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/wtruncate_fix.f
@@ -0,0 +1,12 @@
+c { dg-do compile }
+c { dg-options "-Wall" }
+c PR42852 -Wall warns about truncated lines when only a continuation character is truncated
+ print *, "Hello!" & !xxxxx
+ & // " World!"
+ print *, "Hello!" & xxxxx
+ & // " World!"
+ print *, "Hello!" //
+ & // " World!"
+ end
+c { dg-warning "Line truncated" " " { target *-*-* } 6 }
+c { dg-warning "Line truncated" " " { target *-*-* } 8 }
--
GitLab