+ added

git-svn-id: trunk@4813 -

.gitattributes

@@ -7350,6 +7350,7 @@ tests/webtbs/tw7425.pp svneol=native#text/plain
 tests/webtbs/tw7440.pp svneol=native#text/plain
 tests/webtbs/tw7446.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/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw7568.pp

@@ -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.