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

git-svn-id: trunk@4589 -
---
 tests/test/tparray2.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/test/tparray2.pp b/tests/test/tparray2.pp
index adf3fabeb1..5758b40acc 100644
--- a/tests/test/tparray2.pp
+++ b/tests/test/tparray2.pp
@@ -3,13 +3,13 @@
 {$mode macpas}
 
 type
-  tba = array[0..7] of boolean;
+  tba = packed array[0..7] of boolean;
   tkeymap = packed array[0..3] of tba;
 
 var
   p: pointer;
   km: tkeymap;
 begin
-  p := @km[2];
+  p := @km[2][3];
 end.