repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr39516.f
blob
3d6104a8ebf068900a45b9fc9feb6b862e3130df
1
C PR tree-optimization/39516
2
C { dg-do compile }
3
C { dg-options "-O2 -ftree-loop-linear" }
4
SUBROUTINE
SUB
(
A
,
B
,
M
)
5
IMPLICIT
NONE
6
DOUBLE PRECISION
A
(
20
,
20
),
B
(
20
)
7
INTEGER*8 I
,
J
,
K
,
M
8
DO
I
=
1
,
M
9
DO
J
=
1
,
M
10
A
(
I
,
J
)=
A
(
I
,
J
)+
1
11
END DO
12
END DO
13
DO
K
=
1
,
20
14
DO
I
=
1
,
M
15
DO
J
=
1
,
M
16
B
(
I
)=
B
(
I
)+
A
(
I
,
J
)
17
END DO
18
END DO
19
END DO
20
END SUBROUTINE