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) call abort 10end program chop 11