paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 11:52:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

troundm: fixed 32bit rmNearest tests and wrong result values

Browse Source 
git-svn-id: trunk@36522 -
This commit is contained in:
Károly Balogh 2017-06-18 18:49:32 +00:00
parent 2109fb33ab
commit 8a6c995b75
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/math/troundm.pp
View File

@ -18,14 +18,14 @@ const
); );
res2_single: TExpected = ( res2_single: TExpected = (
$4EFFFFFF, $4F000000,
$4EFFFFFF, $4EFFFFFF,
$4F000000, $4F000000,
$4EFFFFFF $4EFFFFFF
); );
res3_single: TExpected = ( res3_single: TExpected = (
$CEFFFFFF, $CF000000,
$CF000000, $CF000000,
$CEFFFFFF, $CEFFFFFF,
$CEFFFFFF $CEFFFFFF
@ -69,6 +69,7 @@ var
yd: longword absolute y; yd: longword absolute y;
begin begin
writeln('integer value=',hexstr(x,8)); writeln('integer value=',hexstr(x,8));
setroundmode(rmNearest);
y:=x; y:=x;
writeln('rmNearest ',y, ' ',hexstr(yd,8)); writeln('rmNearest ',y, ' ',hexstr(yd,8));
if yd<>res[rmNearest] then fail; if yd<>res[rmNearest] then fail;