re PR fortran/35882 (Miscounted continuation lines when interspersed with data)

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.

From-SVN: r134252

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aaa76f56ff8b720132b98416a7dbab97e2b7cd38..3229eb0ad8280b364246effff7764b450ff67fcc 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 a7f0d1d1dd103b92c424319f47de078864a73853..238f8cc7b8f9acc59db5ee06fcf5ebbcd3eca2df 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 b0ecd706390936cb4c1f8c0fc3ddd104905d69ba..15e06077ff36f78b61d5beb2dc874868b047a9bd 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 *,