repo.or.cz
/
official-gcc
/
Ramakrishna.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix PR42732.
[official-gcc/Ramakrishna.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr42732.f
blob
95c115076a938046a209e6ecd6a04dcfd1d6c133
1
! {
dg
-
options
"-O2 -fgraphite-identity"
}
2
3
parameter
(
in
=
128
+
5
4
& ,
jn
=
128
+
5
5
& ,
kn
=
128
+
5
)
6
real*8
d
(
in
,
jn
,
kn
)
7
real*8
dcopy
(
in
,
jn
,
kn
)
8
call
pdv
(
is
,
dcopy
)
9
do
k
=
ks
,
ke
10
do
j
=
je
+
1
,
je
+
2
11
do
i
=
is
-
2
,
ie
+
2
12
dcopy
(
i
,
j
,
k
) =
d
(
i
,
j
,
k
)
13
enddo
14
enddo
15
enddo
16
do
k
=
ks
,
ke
17
do
j
=
js
,
je
18
do
i
=
is
-
2
,
is
-
1
19
dcopy
(
i
,
j
,
k
) =
d
(
i
,
j
,
k
)
20
enddo
21
enddo
22
enddo
23
end