program expression_equivalence
!
! simple evaluation of x*x-y*y
! when x and y are similar
!
! we will evaluate in three ways.
!
implicit none
real :: x = 1.002
real :: y = 1.001
real :: t1, t2, t3, t4, t5
t1 = x-y
t2 = x + y
print *,t1
print *,t2
t3 = t1*t2
t4 = x**2-y**2
t5 = x*x-y*y
print *,t3
print *,t4
print *,t5
end program expression_equivalence