mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
58 lines
772 B
ObjectPascal
58 lines
772 B
ObjectPascal
{$mode macpas}
|
|
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.
|