Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
vect
/
O3-pr39595.f
blob: 50725fe4d4fbfbba8271d5c4810c0a9e30cc6a65 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine foo
(
a
,
c
,
i
,
m
)
real a
(
4
,*),
b
(
3
,
64
),
c
(
3
,
200
),
d
(
64
)
integer
*
8
i
,
j
,
k
,
l
,
m
do
j
=
1
,
m
,
64
do
k
=
1
,
m
-
j
+
1
d
(
k
)=
a
(
4
,
j
-
1
+
k
)
do
l
=
1
,
3
b
(
l
,
k
)=
c
(
l
,
i
)+
a
(
l
,
j
-
1
+
k
)
end
do
end
do
call bar
(
b
,
d
,
i
)
end
do
end