diff --git a/tests/test/tparray1.pp b/tests/test/tparray1.pp
index 04965e903b..53b6a28cb0 100644
--- a/tests/test/tparray1.pp
+++ b/tests/test/tparray1.pp
@@ -3,15 +3,15 @@
 {$mode macpas}
 
 type
-  tba = array[0..7] of boolean;
+  tba = packed array[0..7] of boolean;
   tkeymap = packed array[0..3] of tba;
 
-procedure test(var b: tba);
+procedure test(var b: boolean);
 begin
 end;
 
 var
   km: tkeymap;
 begin
-  test(km[1]);
+  test(km[1][2]);
 end.