gcc/testsuite/gfortran.dg/continuation_17.f90

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