mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-19 05:10:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2006-10-03 04:09:49 +00:00
parent 5a06474ce9
commit 6aacba3755
7 changed files with 677 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/testsuite/ChangeLog
View File

@ -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

0
gcc/testsuite/gfortran.dg/continuation.f90 → gcc/testsuite/gfortran.dg/continuation_1.f90
View File

6
gcc/testsuite/gfortran.dg/continuation_2.f90 Normal file
View File

@ -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

87
gcc/testsuite/gfortran.dg/continuation_3.f90 Normal file
View File

@ -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

262
gcc/testsuite/gfortran.dg/continuation_4.f90 Normal file
View File

@ -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

46
gcc/testsuite/gfortran.dg/continuation_5.f Normal file
View File

@ -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

264
gcc/testsuite/gfortran.dg/continuation_6.f Normal file
View File

@ -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