blob: aeb240368cbe890485b3b64542f82ab3de60e4ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
! { dg-do compile }
! { dg-options -std=f95 }
! PR 19262 Test limit on line continuations. Test case derived form case in PR
! by Steve Kargl. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
print *,
c "1" // ! 1
c "2" // ! 2
c "3" // ! 3
c "4" // ! 4
c "5" // ! 5
c "6" // ! 6
c "7" // ! 7
c "8" // ! 8
c "9" // ! 9
c "0" // ! 10
c "1" // ! 11
c "2" // ! 12
c "3" // ! 13
c "4" // ! 14
c "5" // ! 15
c "6" // ! 16
c "7" // ! 17
c "8" // ! 18
c "9" ! 19
print *,
c "1" // ! 1
c "2" // ! 2
c "3" // ! 3
c "4" // ! 4
c "5" // ! 5
c "6" // ! 6
c "7" // ! 7
c "8" // ! 8
c "9" // ! 9
!
c
*
C
c "0" // ! 10
c "1" // ! 11
c "2" // ! 12
c "3" // ! 13
c "4" // ! 14
c
!
!
c "5" // ! 15
c "6" // ! 16
c "7" // ! 17
c "8" // ! 18
c "9" // ! 19
c "0" ! { dg-warning "Limit of 19 continuations exceeded" }
end
|
