flang/test/Parser/excessive-continuations.f90

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