[Bug fortran/15205] [gfortran] NEAREST intrinsic returns wrong value in DOUBLE PRECISION

[Tobias dot Schlueter at physik dot uni-muenchen dot de]

------- Additional Comments From Tobias dot Schlueter at physik dot uni-muenchen dot de  2004-04-30 17:07 -------
I forgot to include this: with my patch Steve's program gives the correct answer
(except for the rounding, I don't know if that's another bug):
[tobi@marktplatz tests]$ LD_LIBRARY_PATH=~tobi/usr/lib ./a.out
nearest( 0.12369999E+01, 1.00000000E+00) =  0.12370001E+01
nearest( 0.12369999E+01,-1.00000000E+00) =  0.12369998E+01
nearest( 0.1237000000000000E+01, 1.0000000000000000E+00) =  0.1237000000000000E+01
nearest( 0.1237000000000000E+01,-1.0000000000000000E+00) =  0.1236999999999999E+01


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15205