paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 15:28:00 +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
i : int64;
j, k: longint;
begin
i:=6400;
i:=i div 64;
if i<>100 then
halt(1);
k:=64;
for j:=6400 to 6464 do
begin
i:=j;
if (i div 64) <> (i div k) then
halt(1);
end;
i:=6500;
i:=i div 65;
if i<>100 then
halt(1);
i:=-6400;
i:=i div 64;
if i<>-100 then
halt(1);
for j:=-6400 downto -6464 do
begin
i:=j;
if (i div 64) <> (i div k) then
halt(2);
end;
writeln('ok');
end.