subroutine sum_2(a, b, x, y)
real(4) a,b, x,z,y
! sum =x; error =y;

x =a+b
z =x-a
y =(a -(x-z)) +(b-z)

END
