paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extended test

Browse Source 
git-svn-id: trunk@21728 -
This commit is contained in:
Jonas Maebe 2012-06-28 14:39:16 +00:00
parent 80bbd388f9
commit ea516b59b0
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw20998.pp
View File

@ -1,18 +1,23 @@
var var
i : int64; i : int64;
j, k: longint;
begin begin
i:=6400; k:=64;
i:=i div 64; for j:=6400 to 6464 do
if i<>100 then begin
halt(1); i:=j;
if (i div 64) <> (i div k) then
halt(1);
end;
i:=6500; i:=6500;
i:=i div 65; i:=i div 65;
if i<>100 then if i<>100 then
halt(1); halt(1);
i:=-6400; for j:=-6400 downto -6464 do
i:=i div 64; begin
if i<>-100 then i:=j;
halt(1); if (i div 64) <> (i div k) then
halt(2);
end;
writeln('ok'); writeln('ok');
end. end.