OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* tree.h: Declare make_decl_rtl_for_debug.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
continuation_10.f90
1
! { dg-do compile }
2
! { dg-options -std=f95 }
3
! PR35882 Miscounted continuation lines when interspersed with data
4
program test_mod
5
implicit none
6
7
integer, dimension(50) :: array
8
9
array = 1
10
11
print "(a, i8)", &
12
"Line 1", &
13
array(2), &
14
"Line 3", &
15
array(4), &
16
"Line 5", &
17
array(6), &
18
"Line 7", &
19
array(8), &
20
"Line 9", &
21
array(10), &
22
"Line 11", &
23
array(12), &
24
"Line 13", &
25
array(14), &
26
"Line 15", &
27
array(16), &
28
"Line 17", &
29
array(18), &
30
"Line 19", &
31
array(20), &
32
"Line 21", &
33
array(22), &
34
"Line 23", &
35
array(24), &
36
"Line 25", &
37
array(26), &
38
"Line 27", &
39
array(28), &
40
"Line 29", &
41
array(30), &
42
"Line 31", &
43
array(32), &
44
"Line 33", &
45
array(34), &
46
"Line 35", &
47
array(36), &
48
"Line 37", &
49
array(38), &
50
"Line 39", &
51
array(40), & ! { dg-warning "Limit of 39 continuations exceeded" }
52
"Line 41", &
53
array(42), &
54
"Line 43"
55
end program