Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
graphite
/
id-pr46994.f90
blob: 93eff45fb77d0c710037c88493743ffcee001d38 [
file
] [
log
] [
blame
]
!
{
dg
-
options
"-O -ffast-math -fgraphite-identity -fno-tree-dce"
}
subroutine foo
(
m
)
integer
::
m
,
i
,
j
,
k
real
::
s
s
=
0
do
i
=
1
,
9
do
j
=
1
,
2
*
m
do
k
=
1
,
2
*
m
s
=
s
+
1
end
do
end
do
end
do
end
subroutine foo