paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source 
git-svn-id: trunk@4813 -
This commit is contained in:
Jonas Maebe 2006-10-06 16:09:56 +00:00
parent b67050099a
commit 2a0f73996a
2 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7350,6 +7350,7 @@ tests/webtbs/tw7425.pp svneol=native#text/plain
tests/webtbs/tw7440.pp svneol=native#text/plain tests/webtbs/tw7440.pp svneol=native#text/plain
tests/webtbs/tw7446.pp svneol=native#text/plain tests/webtbs/tw7446.pp svneol=native#text/plain
tests/webtbs/tw7489.pp svneol=native#text/plain tests/webtbs/tw7489.pp svneol=native#text/plain
tests/webtbs/tw7568.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain tests/webtbs/uw0555.pp svneol=native#text/plain

56
tests/webtbs/tw7568.pp Normal file
View File

@ -0,0 +1,56 @@
program ptest;
type
Point = record
v: integer;
h: integer;
end;
procedure Test
(
arg1 : longint;
arg2 : integer;
arg3 : boolean;
arg4 : longint;
arg5 : longint;
arg6 : longint;
arg7 : longint;
arg8 : longint;
arg9 : longint;
arg10: longint
);
label
ErrExit;
var
i, n: integer;
p1, p2, unused1: Point;
dx, dy: Single;
unused2, unused3: integer;
unused4: longint;
begin
arg4:= 1;
n:= 0;
dx:= 1.0;
dy:= 1.0;
p2.h:= 1;
p2.v:= 2;
for i:=0 TO arg4-1 do begin
p1.h:=p2.h + round(3*dx);
p1.v:=p2.v + round(3*dy);
writeln('p1.h=', p1.h, ', p1.v=', p1.v);
if (p1.h <> 4) then
halt(1);
end;
if n<>0 then goto ErrExit;
ErrExit:
end;
begin
Test(0, 0, false, 1, 0, 0, 0, 0, 0, 0);
end.