Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
graphite
/
pr47019.f
blob: 69067e9c500e86cc563845d921f6ed5763e590f6 [
file
] [
log
] [
blame
]
!
{
dg
-
options
"-O -ftree-pre -fgraphite-identity -fno-tree-copy-prop"
}
subroutine foo
(
ldmx
,
ldmy
,
v
)
integer
::
ldmx
,
ldmy
,
v
,
l
,
m
dimension v
(
5
,
ldmx
,
ldmy
)
do
m
=
5
,
1
,
-
1
do
l
=
m
+
1
,
5
v
(
m
,
3
,
2
)
=
v
(
1
,
3
,
2
)
end
do
v
(
m
,
3
,
2
)
=
m
end
do
end