1program chop
2  integer ix, iy
3  real x, y
4  x = 1.
5  y = x
6  ix = transfer(x,ix)
7  iy = transfer(y,iy)
8  print '(2z20.8)', ix, iy
9  if (ix /= iy) STOP 1
10end program chop
11