+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
+++ /dev/null
-! { dg-do run }
-! { dg-options -Wampersand }
-! PR 19101 Test line continuations and spaces. Note: the missing ampersand
-! before "world" is non standard default behavior. Use -std=f95, -std=f2003,
-! -pedantic, -Wall, or -Wampersand to catch this error
-! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
-program main
- character (len=40) &
- c
- c = "Hello, &
- world!" ! { dg-warning "Warning: Missing '&' in continued character constant" }
- if (c.ne.&
- "Hello, world!")&
- call abort();end program main
-
--- /dev/null
+! { dg-do run }
+! { dg-options -Wampersand }
+! PR 19101 Test line continuations and spaces. Note: the missing ampersand
+! before "world" is non standard default behavior. Use -std=f95, -std=f2003,
+! -pedantic, -Wall, or -Wampersand to catch this error
+! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
+program main
+ character (len=40) &
+ c
+ c = "Hello, &
+ world!" ! { dg-warning "Warning: Missing '&' in continued character constant" }
+ if (c.ne.&
+ "Hello, world!")&
+ call abort();end program main
+
--- /dev/null
+! { 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
--- /dev/null
+! { 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
--- /dev/null
+! { 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
--- /dev/null
+! { 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
--- /dev/null
+! { 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
projects / gcc.git / commitdiff