From 2dbe07f533ee6a6063c818f5c4b5dee19bec6e0e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 21 Mar 2000 16:23:25 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbs/tbug881.pp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/webtbs/tbug881.pp

diff --git a/tests/webtbs/tbug881.pp b/tests/webtbs/tbug881.pp
new file mode 100644
index 0000000000..aa5d789e8c
--- /dev/null
+++ b/tests/webtbs/tbug881.pp
@@ -0,0 +1,14 @@
+PROGRAM TEST;
+TYPE
+    byteSet     = SET OF 0..7;
+    booleanArray    = ARRAY[0..HIGH(word) DIV 8] OF byteSet;
+    booleanArrayPointer = ^booleanArray;
+
+PROCEDURE SetBooleanArray(  CONST p     : booleanArrayPointer;
+                            CONST index : word );
+BEGIN
+    INCLUDE(p^[index DIV 8],index MOD 8)
+END;
+
+BEGIN
+END.