summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/continuation_5.f
diff options
context:
space:
mode:
authorupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
committerupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
commit554fd8c5195424bdbcabf5de30fdc183aba391bd (patch)
tree976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gfortran.dg/continuation_5.f
downloadcbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2
cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gfortran.dg/continuation_5.f')
-rw-r--r--gcc/testsuite/gfortran.dg/continuation_5.f54
1 files changed, 54 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/continuation_5.f b/gcc/testsuite/gfortran.dg/continuation_5.f
new file mode 100644
index 000000000..aeb240368
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_5.f
@@ -0,0 +1,54 @@
+! { dg-do compile }
+! { 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 *,
+ 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
+*
+C
+ c "0" // ! 10
+ c "1" // ! 11
+ c "2" // ! 12
+ c "3" // ! 13
+ c "4" // ! 14
+c
+
+ !
+ !
+ 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