Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-3.3.6
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
970626-2.f
blob: c1e2348646f7b2668413b0506c4df98646b23a19 [
file
] [
log
] [
blame
]
SUBROUTINE A
(
A
,
ALPHA
,
IA
)
COMPLEX A
(
IA
,*),
ALPHA
(*)
ALPHA
(
I
)=
A
(
I
,
I
).
ZERO
)
END