From: Jerry DeLisle Date: Tue, 3 Oct 2006 04:09:49 +0000 (+0000) Subject: re PR fortran/19260 (& not required when splitting a token in continuation) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6aacba37551b5235eb7958186c308337cfba8a0c;p=gcc.git re PR fortran/19260 (& not required when splitting a token in continuation) 2006-10-02 Jerry DeLisle 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 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2b1bcadafdb..c19d746bda5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,15 @@ +2006-10-02 Jerry DeLisle + + 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 PR c++/29226 diff --git a/gcc/testsuite/gfortran.dg/continuation.f90 b/gcc/testsuite/gfortran.dg/continuation.f90 deleted file mode 100644 index 64a98ade9aa..00000000000 --- a/gcc/testsuite/gfortran.dg/continuation.f90 +++ /dev/null @@ -1,15 +0,0 @@ -! { 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 . -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 - diff --git a/gcc/testsuite/gfortran.dg/continuation_1.f90 b/gcc/testsuite/gfortran.dg/continuation_1.f90 new file mode 100644 index 00000000000..64a98ade9aa --- /dev/null +++ b/gcc/testsuite/gfortran.dg/continuation_1.f90 @@ -0,0 +1,15 @@ +! { 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 . +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 + diff --git a/gcc/testsuite/gfortran.dg/continuation_2.f90 b/gcc/testsuite/gfortran.dg/continuation_2.f90 new file mode 100644 index 00000000000..e72624856d3 --- /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 . +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 00000000000..a7f0d1d1dd1 --- /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 +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 00000000000..7dfbf5d0cb9 --- /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 +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 00000000000..b0ecd706390 --- /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 + 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 00000000000..9bf64ad4e50 --- /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 + 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