diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/continuation_5.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/continuation_5.f | 54 |
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 |