llvm-project

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
263