Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
pr82449.f
blob: 641ed7440add496e878f9f8f887b5338cb3210f5 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -floop-nest-optimize -std=legacy"
}
SUBROUTINE JDFIDX
(
MKL
,
KGSH
)
DIMENSION MKL
(
6
,
6
)
NKL
=
0
400
DO
40
KG
=
1
,
KGSH
DO
40
LG
=
1
,
KG
NKL
=
NKL
+
1
40
MKL
(
LG
,
KG
)
=
NKL
END