* about 500 millions iterations is not needed for tb0328 test.

git-svn-id: trunk@4098 -

tests/tbs/tb0328.pp

@@ -42,8 +42,8 @@ begin
   test2 := true;
   m := 0;
 { get as much regvars occupied as possible }
-  for j := 1 to 1000 do
-    for k := 1 to 1000 do
+  for j := 1 to 100 do
+    for k := 1 to 100 do
       for l := k downto 0 do
          inc(m,j - k + l);
   if (j = 5) and (k = 0) and (l = 100) and function1 then