From 2d76bbf4dbfad75ee2f130e709337cd5afd7615b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 9 Sep 2006 18:43:34 +0000
Subject: [PATCH]   * changed so it still fails after today's changes

git-svn-id: trunk@4587 -
---
 tests/test/tparray1.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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.