paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added tests for succ/pred(<qword>)

Browse Source
This commit is contained in:
florian 1999-12-02 12:36:01 +00:00
parent 315f09283e
commit 53e197de2d
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/testi642.pp
View File

@ -970,7 +970,7 @@ procedure testreqword;
procedure testintqword;
var
q1,q2 : qword;
q1,q2,q3 : qword;
begin
// lo/hi
@ -988,6 +988,24 @@ procedure testintqword;
assignqword($03030303,$fafafafa,q2);
if swap(q1)<>q2 then
do_error(2604);
// succ/pred
assignqword(0,$1,q1);
q3:=q1;
q1:=succ(q1);
q1:=succ(q1+1);
q2:=pred(q1-1);
q2:=pred(q2);
if q3<>q2 then
do_error(2605);
assignqword(0,$ffffffff,q1);
q3:=q1;
q1:=succ(q1);
q1:=succ(q1+1);
q2:=pred(q1-1);
q2:=pred(q2);
if q3<>q2 then
do_error(2606);
end;
var