gcc/testsuite/gfortran.dg/continuation_6.f

   1 ! { dg-do compile }
   2 ! { dg-options -std=f2003 }
   3 ! PR 19262  Test limit on line continuations. Test case derived form case in PR
   4 ! by Steve Kargl.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5        print *,
   6      c "1" // !  1 Counting by 40.
   7      c "2" // !  2
   8      c "3" // !  3
   9      c "4" // !  4
  10      c "5" // !  5
  11      c "6" // !  6
  12      c "7" // !  7
  13      c "8" // !  8
  14      c "9" // !  9
  15      c "0" // ! 10
  16      c "1" // ! 11
  17      c "2" // ! 12
  18      c "3" // ! 13
  19      c "4" // ! 14
  20      c "5" // ! 15
  21      c "6" // ! 16
  22      c "7" // ! 17
  23      c "8" // ! 18
  24      c "9" // ! 19
  25      c "0" // ! 20
  26      c "1" // ! 21
  27      c "2" // ! 22
  28      c "3" // ! 23
  29      c "4" // ! 24
  30      c "5" // ! 25
  31      c "6" // ! 26
  32      c "7" // ! 27
  33      c "8" // ! 28
  34      c "9" // ! 29
  35      c "0" // ! 30
  36      c "1" // ! 31
  37      c "2" // ! 32
  38      c "3" // ! 33
  39      c "4" // ! 34
  40      c "5" // ! 35
  41      c "6" // ! 36
  42      c "7" // ! 37
  43      c "8" // ! 38
  44      c "9" // ! 39
  45      c "0" // ! 40
  46      c "1" // !  1
  47      c "2" // !  2
  48      c "3" // !  3
  49      c "4" // !  4
  50      c "5" // !  5
  51      c "6" // !  6
  52      c "7" // !  7
  53      c "8" // !  8
  54      c "9" // !  9
  55      c "0" // ! 10
  56      c "1" // ! 11
  57      c "2" // ! 12
  58      c "3" // ! 13
  59      c "4" // ! 14
  60      c "5" // ! 15
  61      c "6" // ! 16
  62      c "7" // ! 17
  63      c "8" // ! 18
  64      c "9" // ! 19
  65      c "0" // ! 20
  66      c "1" // ! 21
  67      c "2" // ! 22
  68      c "3" // ! 23
  69      c "4" // ! 24
  70      c "5" // ! 25
  71      c "6" // ! 26
  72      c "7" // ! 27
  73      c "8" // ! 28
  74      c "9" // ! 29
  75      c "0" // ! 30
  76      c "1" // ! 31
  77      c "2" // ! 32
  78      c "3" // ! 33
  79      c "4" // ! 34
  80      c "5" // ! 35
  81      c "6" // ! 36
  82      c "7" // ! 37
  83      c "8" // ! 38
  84      c "9" // ! 39
  85      c "0" // ! 80
  86      c "1" // !  1
  87      c "2" // !  2
  88      c "3" // !  3
  89      c "4" // !  4
  90      c "5" // !  5
  91      c "6" // !  6
  92      c "7" // !  7
  93      c "8" // !  8
  94      c "9" // !  9
  95      c "0" // ! 10
  96      c "1" // ! 11
  97      c "2" // ! 12
  98      c "3" // ! 13
  99      c "4" // ! 14
 100      c "5" // ! 15
 101      c "6" // ! 16
 102      c "7" // ! 17
 103      c "8" // ! 18
 104      c "9" // ! 19
 105      c "0" // ! 20
 106      c "1" // ! 21
 107      c "2" // ! 22
 108      c "3" // ! 23
 109      c "4" // ! 24
 110      c "5" // ! 25
 111      c "6" // ! 26
 112      c "7" // ! 27
 113      c "8" // ! 28
 114      c "9" // ! 29
 115      c "0" // ! 30
 116      c "1" // ! 31
 117      c "2" // ! 32
 118      c "3" // ! 33
 119      c "4" // ! 34
 120      c "5" // ! 35
 121      c "6" // ! 36
 122      c "7" // ! 37
 123      c "8" // ! 38
 124      c "9" // ! 39
 125      c "0" // ! 120
 126      c "1" // !  1
 127      c "2" // !  2
 128      c "3" // !  3
 129      c "4" // !  4
 130      c "5" // !  5
 131      c "6" // !  6
 132      c "7" // !  7
 133      c "8" // !  8
 134      c "9" // !  9
 135      c "0" // ! 10
 136      c "1" // ! 11
 137      c "2" // ! 12
 138      c "3" // ! 13
 139      c "4" // ! 14
 140      c "5" // ! 15
 141      c "6" // ! 16
 142      c "7" // ! 17
 143      c "8" // ! 18
 144      c "9" // ! 19
 145      c "0" // ! 20
 146      c "1" // ! 21
 147      c "2" // ! 22
 148      c "3" // ! 23
 149      c "4" // ! 24
 150      c "5" // ! 25
 151      c "6" // ! 26
 152      c "7" // ! 27
 153      c "8" // ! 28
 154      c "9" // ! 29
 155      c "0" // ! 30
 156      c "1" // ! 31
 157      c "2" // ! 32
 158      c "3" // ! 33
 159      c "4" // ! 34
 160      c "5" // ! 35
 161      c "6" // ! 36
 162      c "7" // ! 37
 163      c "8" // ! 38
 164      c "9" // ! 39
 165      c "0" // ! 160
 166      c "1" // !  1
 167      c "2" // !  2
 168      c "3" // !  3
 169      c "4" // !  4
 170      c "5" // !  5
 171      c "6" // !  6
 172      c "7" // !  7
 173      c "8" // !  8
 174      c "9" // !  9
 175      c "0" // ! 10
 176      c "1" // ! 11
 177      c "2" // ! 12
 178      c "3" // ! 13
 179      c "4" // ! 14
 180      c "5" // ! 15
 181      c "6" // ! 16
 182      c "7" // ! 17
 183      c "8" // ! 18
 184      c "9" // ! 19
 185      c "0" // ! 20
 186      c "1" // ! 21
 187      c "2" // ! 22
 188      c "3" // ! 23
 189      c "4" // ! 24
 190      c "5" // ! 25
 191      c "6" // ! 26
 192      c "7" // ! 27
 193      c "8" // ! 28
 194      c "9" // ! 29
 195      c "0" // ! 30
 196      c "1" // ! 31
 197      c "2" // ! 32
 198      c "3" // ! 33
 199      c "4" // ! 34
 200      c "5" // ! 35
 201      c "6" // ! 36
 202      c "7" // ! 37
 203      c "8" // ! 38
 204      c "9" // ! 39
 205      c "0" // ! 200
 206      c "1" // !  1
 207      c "2" // !  2
 208      c "3" // !  3
 209      c "4" // !  4
 210      c "5" // !  5
 211      c "6" // !  6
 212      c "7" // !  7
 213      c "8" // !  8
 214      c "9" // !  9
 215      c "0" // ! 10
 216      c "1" // ! 11
 217      c "2" // ! 12
 218      c "3" // ! 13
 219      c "4" // ! 14
 220      c "5" // ! 15
 221      c "6" // ! 16
 222      c "7" // ! 17
 223      c "8" // ! 18
 224      c "9" // ! 19
 225      c "0" // ! 20
 226      c "1" // ! 21
 227      c "2" // ! 22
 228      c "3" // ! 23
 229      c "4" // ! 24
 230      c "5" // ! 25
 231      c "6" // ! 26
 232      c "7" // ! 27
 233      c "8" // ! 28
 234      c "9" // ! 29
 235      c "0" // ! 30
 236      c "1" // ! 31
 237      c "2" // ! 32
 238      c "3" // ! 33
 239      c "4" // ! 34
 240      c "5" // ! 35
 241      c "6" // ! 36
 242      c "7" // ! 37
 243      c "8" // ! 38
 244      c "9" // ! 39
 245      c "0" // ! 240
 246      c "1" // !  1
 247      c "2" // !  2
 248      c "3" // !  3
 249      c "4" // !  4
 250      c "5" // !  5
 251      c "6" // !  6
 252      c "7" // !  7
 253      c "8" // !  8
 254      c "9" // !  9
 255      c "0" // ! 10
 256      c "1" // ! 11
 257      c "2" // ! 12
 258      c "3" // ! 13
 259      c "4" // ! 14
 260      c "5" // ! 255
 261      c "6"    ! { dg-warning "Limit of 255 continuations exceeded" }
 262
 263        end
 264