gcc/testsuite/gfortran.dg/continuation_4.f90

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