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>
5print *, &
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" }
262end