real *8 x
      double precision y
      equivalence( x,y)
      real r
      equivalence (i,r)
      x = 1.0
      write(*,*) y
      r = 0.0
      write(*,*) i
      end