Sign in
gnu
/
gcc
/
b305ec979d9dfc8153859a62a8ab9dd43c3bfc73
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-9.f
blob: c939370889723e2fc679450afffb0a9a0fc2f8de [
file
] [
log
] [
blame
]
subroutine foo
(
bar
)
real
*
8
bar
(
3
,
3
),
coefm
do
ii
=
istart
,
iend
do
i
=
1
,
21
bar
(
k
,
l
)=
4
enddo
do
m
=
1
,
ne
do
l
=
1
,
3
do
k
=
1
,
l
enddo
bar
(
k
,
l
)=
bar
(
k
,
l
)+(
v3b
-
1.d0
)
enddo
enddo
do
m
=
1
,
ne
do
k
=
1
,
l
l
=
l
*(
v3b
**(-
coefm
))
enddo
enddo
enddo
end