Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/continuation_3.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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 *, & "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