From d9c7424be47e16bc75f74786887cdf3d947f3074 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 21 Mar 2000 09:12:30 +0000
Subject: [PATCH] *** empty log message ***

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

diff --git a/tests/webtbs/tbug879.pp b/tests/webtbs/tbug879.pp
new file mode 100644
index 0000000000..50f88c8891
--- /dev/null
+++ b/tests/webtbs/tbug879.pp
@@ -0,0 +1,13 @@
+PROGRAM TEST;
+TYPE
+        ta      = ARRAY[3..8] OF word;
+VAR
+        aa      : ^ta;
+        i       : word;
+BEGIN
+   NEW(aa);
+   FOR i:=LOW(aa^) TO HIGH(aa^) DO
+     aa^[i]:=0;
+END.
+
+