*** empty log message ***

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.
+
+