[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / compile / 20000412-1.f

      subroutine aap(k)
      equivalence (i,r)
      i = k
      print*,r
      end