@@ -0,0 +1,11 @@
+type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2] of Byte;
+
+var v,w: ta;
+ e: longint;
+Begin
+ e :=1;
+ v[e,e,e,e,e,e,e,e,e,e] :=1;
+ w[e,e,e,e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
+ writeln(w[e,e,e,e,e,e,e,e,e,e])
+end.
@@ -0,0 +1,12 @@
+type
+ p=^p;
+ p2 = ^p2;
+ var a:p;
+ a2:p2;
+ begin
+ a:=a2;
+ a:=a2^;
+ end.
@@ -0,0 +1,14 @@
+ t=object
+ f : longint;
+ procedure p;
+ g : longint; { Not allowed in BP7 }
+ end;
+ procedure t.p;
@@ -177,4 +177,6 @@ bug0124.pp problem with -Rintel switch and indexing (whatever the order)
bug0125.pp wrong colors with DOS CRT unit
bug0127.pp problem with cdecl in implementation part
bug0130.pp in [..#255] problem
-
+bug0131.pp internal error 10 with highdimension arrays
+bug0132.pp segmentation fault with type loop
+bug0133.pp object type declaration not 100% compatibile with TP7