求助fortran 高精度计算问题

zhaoxubao7005

大家好，向大家咨询一个关于fortran高精度的计算问题。在我的计算中，经常遇到双精度的复杂计算，随着计算时间变长，结果就不正确了，不知道为何，
比如：
real(8) :: a=0.12345678988
real(8) b
b=a+a
write(*,*) b

理论上计算b的值应该为：0.24691357976
计算机输出的结果是：     0.246913582086563

请问，如何修改能保证计算结果。
谢谢。