Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr94329.f90
blob: 9efcf4b65242d9c0604578e9d41bbd839d7250af [
file
] [
log
] [
blame
]
!
PR tree
-
optimization
/
94329
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O1 -fno-tree-loop-optimize -fwrapv -fcompare-debug"
}
subroutine pr94329
(
s
,
t
)
real
::
s
,
t
(:,:)
do
i
=
1
,
3
do
j
=
1
,
3
s
=
t
(
i
,
j
)
end
do
end
do
end