2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / g77.f-torture / compile / 20000412-1.f
blobe4c6511fa3b6c6a04f466fd261ec13a16c4d7883
1 subroutine aap(k)
2 equivalence (i,r)
3 i = k
4 print*,r
5 end