Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
20000412-1.f
blob: e4c6511fa3b6c6a04f466fd261ec13a16c4d7883 [
file
] [
log
] [
blame
]
subroutine aap
(
k
)
equivalence
(
i
,
r
)
i
=
k
print
*,
r
end