diff --git a/tests/tbs/tb0328.pp b/tests/tbs/tb0328.pp
index dac295d824..b1be273e8d 100644
--- a/tests/tbs/tb0328.pp
+++ b/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