2008-04-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/35882
	* gfortran.dg/continuation_3.f90: Update test.
	* gfortran.dg/continuation_5.f: Update test.
	* gfortran.dg/continuation_10.f90: New test.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aaa76f5..3229eb0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/35882
+       * gfortran.dg/continuation_3.f90: Update test.
+       * gfortran.dg/continuation_5.f: Update test.
+       * gfortran.dg/continuation_10.f90: New test.
+       
 2008-04-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR libfortran/32972

diff --git a/gcc/testsuite/gfortran.dg/continuation_10.f90 b/gcc/testsuite/gfortran.dg/continuation_10.f90
new file mode 100644 (file)
index 0000000..8071dd7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_10.f90
@@ -0,0 +1,55 @@
+! { dg-do compile }
+! { dg-options -std=f95 }
+! PR35882 Miscounted continuation lines when interspersed with data
+program test_mod
+   implicit none
+
+   integer, dimension(50) :: array
+
+   array = 1
+
+   print "(a, i8)", &
+      "Line 1", &
+      array(2), &
+      "Line 3", &
+      array(4), &
+      "Line 5", &
+      array(6), &
+      "Line 7", &
+      array(8), &
+      "Line 9", &
+      array(10), &
+      "Line 11", &
+      array(12), &
+      "Line 13", &
+      array(14), &
+      "Line 15", &
+      array(16), &
+      "Line 17", &
+      array(18), &
+      "Line 19", &
+      array(20), &
+      "Line 21", &
+      array(22), &
+      "Line 23", &
+      array(24), &
+      "Line 25", &
+      array(26), &
+      "Line 27", &
+      array(28), &
+      "Line 29", &
+      array(30), &
+      "Line 31", &
+      array(32), &
+      "Line 33", &
+      array(34), &
+      "Line 35", &
+      array(36), &
+      "Line 37", &
+      array(38), &
+      "Line 39", &
+      array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
+      "Line 41", &
+      array(42), &
+      "Line 43"
+end program

diff --git a/gcc/testsuite/gfortran.dg/continuation_3.f90 b/gcc/testsuite/gfortran.dg/continuation_3.f90
index a7f0d1d..238f8cc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/continuation_3.f90
+++ b/gcc/testsuite/gfortran.dg/continuation_3.f90
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! { dg-options -pedantic }
+! { dg-options -std=f95 }
 ! PR 19262  Test limit on line continuations. Test case derived form case in PR
 ! by Steve Kargl.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 print *, &

diff --git a/gcc/testsuite/gfortran.dg/continuation_5.f b/gcc/testsuite/gfortran.dg/continuation_5.f
index b0ecd70..15e0607 100644 (file)
--- a/gcc/testsuite/gfortran.dg/continuation_5.f
+++ b/gcc/testsuite/gfortran.dg/continuation_5.f
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! { dg-options -pedantic }
+! { dg-options -std=f95 }
 ! PR 19262  Test limit on line continuations. Test case derived form case in PR
 ! by Steve Kargl.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
        print *,