Sign in
gnu
/
gcc
/
refs/heads/devel/gccgo
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
id-24.f
blob: 20c40ee06e28c08212655882f20b83ed1900f98e [
file
] [
log
] [
blame
]
SUBROUTINE TFTRAB
(
A
,
NA
)
DIMENSION A
(
NA
,
NA
)
DO
160
K
=
1
,
NA
DUM
=
DUM
+
A
(
K
,
I
)
160
CONTINUE
DO
180
I
=
1
,
NA
A
(
I
,
J
)
=
DUM
180
CONTINUE
END