From 72d9718a7662ffe420155f65f42fcd4e924df016 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sun, 25 Jul 2010 15:35:04 +0000 Subject: [PATCH] 2010-07-25 Jerry DeLisle PR fortran/42852 * gfortran.dg/wtruncate_fix.f: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162514 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 8f722ed7aa5..5771a063137 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-07-25 Jerry DeLisle + + PR fortran/42852 + * gfortran.dg/wtruncate_fix.f: New test. + 2010-07-25 H.J. Lu 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 00000000000..082c70ff766 --- /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 } -- 2.11.0