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
55
|
! { dg-do compile }
! { dg-options -std=f95 }
! PR35882 Miscounted continuation lines when interspersed with data
program test_mod
implicit none
integer, dimension(50) :: array
array = 1
print "(a, i8)", &
"Line 1", &
array(2), &
"Line 3", &
array(4), &
"Line 5", &
array(6), &
"Line 7", &
array(8), &
"Line 9", &
array(10), &
"Line 11", &
array(12), &
"Line 13", &
array(14), &
"Line 15", &
array(16), &
"Line 17", &
array(18), &
"Line 19", &
array(20), &
"Line 21", &
array(22), &
"Line 23", &
array(24), &
"Line 25", &
array(26), &
"Line 27", &
array(28), &
"Line 29", &
array(30), &
"Line 31", &
array(32), &
"Line 33", &
array(34), &
"Line 35", &
array(36), &
"Line 37", &
array(38), &
"Line 39", &
array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
"Line 41", &
array(42), &
"Line 43"
end program
|
