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

[bdavis9659 at comcast dot net]

------- Additional Comments From bdavis9659 at comcast dot net  2004-04-30 00:36 -------
for some reason i had to remove the _sp and _dp to get it to compile ?

this is not a library problem, it is in the front end.

[bdavis@localhost pr15205]$ gfortran -static a.f90
[bdavis@localhost pr15205]$ nm a.out |grep near
527:08049140 T _gfortran_nearest_r4

or look at the output of -fdump-tree-all


[bdavis@localhost pr15205]$ grep near a.f90.t03.original
12:  sr = _gfortran_nearest_r4 (sx, ss);
19:  _gfortran_transfer_character ("nearest(", 8);
27:  sr = _gfortran_nearest_r4 (sx, ss);
34:  _gfortran_transfer_character ("nearest(", 8);
43:  dr = (real8)_gfortran_nearest_r4 (dx, ds);
50:  _gfortran_transfer_character ("nearest(", 8);
58:  dr = (real8)_gfortran_nearest_r4 (dx, ds);
65:  _gfortran_transfer_character ("nearest(", 8);


 



-- 


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