1! { dg-do compile }
2! { dg-options -std=f95 }
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
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"
45print *, &
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!
76   !
77       "0" // & ! 30
78       "1" // & ! 31
79!
80!
81       "2" // & ! 32
82       "3" // & ! 33
83       "4" // & ! 34
84       "5" // & ! 35
85       "6" // & ! 36
86       "7" // & ! 37
87       "8" // & ! 38
88       "9" // & ! 39
89       "0"      ! { dg-warning "Limit of 39 continuations exceeded" }
90
91end