program test_epsilon
implicit none
real(4):: x = 1.0, y

y = 5.96046412227E-008
write(*,'(A4,F16.14)') 'x = ', x
write(*,'(A4,F16.14)') 'y = ', y

write(*,'(A8,F16.14)') 'x + y = ', x+y ! 1.00000000000000

y = 1.19209282445e-007
write(*,'(A4,F16.14)') 'x = ', x
write(*,'(A4,F16.14)') 'y = ', y

write(*,'(A8,F16.14)') 'x + y = ', x+y ! 1.00000011920929

end program