paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test

Browse Source
This commit is contained in:
florian 2021-09-14 22:01:26 +02:00
parent 5d571853ac
commit e2624fdaaa
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw39357.pp
View File

@ -10,10 +10,10 @@ function get_sign(d: double): Integer;
inc(p,4);
{$else}
{$ifdef FPC_LITTLE_ENDIAN}
inc(p,4);
inc(p,sizeof(d)-1);
{$endif}
{$endif}
if (p^ and $80)=0 then
if (p^ and $80)<>0 then
get_sign:=-1;
end;
@ -23,6 +23,10 @@ var
zero : Double;
begin
zero:=0.0;
if get_sign(1.0)<>1 then
halt(1);
writeln(-zero);
if get_sign(-zero)<>-1 then
halt(1);