Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
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