re PR fortran/19260 (& not required when splitting a token in continuation)

2006-10-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/19260
	* gfortran.dg/continuation.f90: Rename to continuation_1.f90.
	* gfortran.dg/continuation_2.f90: New test.

	PR fortran/19262
	* gfortran.dg/continuation_3.f90: New test.
	* gfortran.dg/continuation_4.f90: New test.
	* gfortran.dg/continuation_5.f: New test.
	* gfortran.dg/continuation_6.f: New test.

From-SVN: r117385

7 files changed, 677 insertions, 0 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2b1bcad..c19d746 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,15 @@
+2006-10-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/19260
+	* gfortran.dg/continuation.f90: Rename to continuation_1.f90.
+	* gfortran.dg/continuation_2.f90: New test.
+
+	PR fortran/19262
+	* gfortran.dg/continuation_3.f90: New test.
+	* gfortran.dg/continuation_4.f90: New test.
+	* gfortran.dg/continuation_5.f: New test.
+	* gfortran.dg/continuation_6.f: New test.
+
 2006-10-02  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/29226
diff --git a/gcc/testsuite/gfortran.dg/continuation.f90 b/gcc/testsuite/gfortran.dg/continuation_1.f90
index 64a98ad..64a98ad 100644
--- a/gcc/testsuite/gfortran.dg/continuation.f90
+++ b/gcc/testsuite/gfortran.dg/continuation_1.f90
diff --git a/gcc/testsuite/gfortran.dg/continuation_2.f90 b/gcc/testsuite/gfortran.dg/continuation_2.f90
new file mode 100644
index 0000000..e726248
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_2.f90
@@ -0,0 +1,6 @@
+! { dg-do compile }
+! PR 19260  Test line continuations and spaces.
+! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
+x = si&  ! { dg-error "Unclassifiable statement" }
+n(3.14159/2)
+end
diff --git a/gcc/testsuite/gfortran.dg/continuation_3.f90 b/gcc/testsuite/gfortran.dg/continuation_3.f90
new file mode 100644
index 0000000..a7f0d1d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_3.f90
@@ -0,0 +1,87 @@
+! { dg-do compile }
+! { dg-options -pedantic }
+! 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 *, &
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9"
+print *, &
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0"      ! { dg-warning "Limit of 39 continuations exceeded" }
+
+end
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/continuation_4.f90 b/gcc/testsuite/gfortran.dg/continuation_4.f90
new file mode 100644
index 0000000..7dfbf5d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_4.f90
@@ -0,0 +1,262 @@
+! { dg-do compile }
+! { dg-options -std=f2003 }
+! 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 *, &
+       "1" // & !  1  Counting in groups of 40.
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 40
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 80
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 120
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 160
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 200
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 15
+       "6" // & ! 16
+       "7" // & ! 17
+       "8" // & ! 18
+       "9" // & ! 19
+       "0" // & ! 20
+       "1" // & ! 21
+       "2" // & ! 22
+       "3" // & ! 23
+       "4" // & ! 24
+       "5" // & ! 25
+       "6" // & ! 26
+       "7" // & ! 27
+       "8" // & ! 28
+       "9" // & ! 29
+       "0" // & ! 30
+       "1" // & ! 31
+       "2" // & ! 32
+       "3" // & ! 33
+       "4" // & ! 34
+       "5" // & ! 35
+       "6" // & ! 36
+       "7" // & ! 37
+       "8" // & ! 38
+       "9" // & ! 39
+       "0" // & ! 240
+       "1" // & !  1
+       "2" // & !  2
+       "3" // & !  3
+       "4" // & !  4
+       "5" // & !  5
+       "6" // & !  6
+       "7" // & !  7
+       "8" // & !  8
+       "9" // & !  9
+       "0" // & ! 10
+       "1" // & ! 11
+       "2" // & ! 12
+       "3" // & ! 13
+       "4" // & ! 14
+       "5" // & ! 255
+       "0"      ! { dg-warning "Limit of 255 continuations exceeded" }
+end
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/continuation_5.f b/gcc/testsuite/gfortran.dg/continuation_5.f
new file mode 100644
index 0000000..b0ecd70
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_5.f
@@ -0,0 +1,46 @@
+! { dg-do compile }
+! { dg-options -pedantic }
+! 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 *,
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9"    ! 19
+       print *,
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0"    ! { dg-warning "Limit of 19 continuations exceeded" }
+       end
\ No newline at end of file
diff --git a/gcc/testsuite/gfortran.dg/continuation_6.f b/gcc/testsuite/gfortran.dg/continuation_6.f
new file mode 100644
index 0000000..9bf64ad
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_6.f
@@ -0,0 +1,264 @@
+! { dg-do compile }
+! { dg-options -std=f2003 }
+! 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 *,
+     c "1" // !  1 Counting by 40.
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 40
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 80
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 120
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 160
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 200
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 15
+     c "6" // ! 16
+     c "7" // ! 17
+     c "8" // ! 18
+     c "9" // ! 19
+     c "0" // ! 20
+     c "1" // ! 21
+     c "2" // ! 22
+     c "3" // ! 23
+     c "4" // ! 24
+     c "5" // ! 25
+     c "6" // ! 26
+     c "7" // ! 27
+     c "8" // ! 28
+     c "9" // ! 29
+     c "0" // ! 30
+     c "1" // ! 31
+     c "2" // ! 32
+     c "3" // ! 33
+     c "4" // ! 34
+     c "5" // ! 35
+     c "6" // ! 36
+     c "7" // ! 37
+     c "8" // ! 38
+     c "9" // ! 39
+     c "0" // ! 240
+     c "1" // !  1
+     c "2" // !  2
+     c "3" // !  3
+     c "4" // !  4
+     c "5" // !  5
+     c "6" // !  6
+     c "7" // !  7
+     c "8" // !  8
+     c "9" // !  9
+     c "0" // ! 10
+     c "1" // ! 11
+     c "2" // ! 12
+     c "3" // ! 13
+     c "4" // ! 14
+     c "5" // ! 255 
+     c "6"    ! { dg-warning "Limit of 255 continuations exceeded" }
+     
+       end
+       
\ No newline at end of file