111
|
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>
|
|
5 print *,
|
|
6 c "1" // ! 1
|
|
7 c "2" // ! 2
|
|
8 c "3" // ! 3
|
|
9 c "4" // ! 4
|
|
10 c "5" // ! 5
|
|
11 c "6" // ! 6
|
|
12 c "7" // ! 7
|
|
13 c "8" // ! 8
|
|
14 c "9" // ! 9
|
|
15 c "0" // ! 10
|
|
16 c "1" // ! 11
|
|
17 c "2" // ! 12
|
|
18 c "3" // ! 13
|
|
19 c "4" // ! 14
|
|
20 c "5" // ! 15
|
|
21 c "6" // ! 16
|
|
22 c "7" // ! 17
|
|
23 c "8" // ! 18
|
|
24 c "9" ! 19
|
|
25 print *,
|
|
26 c "1" // ! 1
|
|
27 c "2" // ! 2
|
|
28 c "3" // ! 3
|
|
29 c "4" // ! 4
|
|
30 c "5" // ! 5
|
|
31 c "6" // ! 6
|
|
32 c "7" // ! 7
|
|
33 c "8" // ! 8
|
|
34 c "9" // ! 9
|
|
35 !
|
|
36 c
|
|
37 *
|
|
38 C
|
|
39 c "0" // ! 10
|
|
40 c "1" // ! 11
|
|
41 c "2" // ! 12
|
|
42 c "3" // ! 13
|
|
43 c "4" // ! 14
|
|
44 c
|
|
45
|
|
46 !
|
|
47 !
|
|
48 c "5" // ! 15
|
|
49 c "6" // ! 16
|
|
50 c "7" // ! 17
|
|
51 c "8" // ! 18
|
|
52 c "9" // ! 19
|
|
53 c "0" ! { dg-warning "Limit of 19 continuations exceeded" }
|
|
54 end |