20000412-1.f
[
plain text
]
c { dg-do compile }
subroutine
aap(k)
equivalence
(i,r) i = k
print
*,r
end