X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=test%2FTest.Mod;h=41e1faeb099b8b10a52e4abd8a4822de32c9c08e;hb=338eeae16495bbdcbd8c4f3dad4996346e26139b;hp=5454854a7ecfcc81ec3c6b7e53a5d4de297173f3;hpb=7bff9378302d5e23c6e9eabe7e6edc8034dcd562;p=dsw-obn.git

diff --git a/test/Test.Mod b/test/Test.Mod
index 5454854..41e1fae 100644
--- a/test/Test.Mod
+++ b/test/Test.Mod
@@ -1,6 +1,20 @@
 MODULE Test;
 
+IMPORT Out;
+
 TYPE
-	MyArr = POINTER TO ARRAY OF MyArr;
+	MyArr = ARRAY 3 OF POINTER TO ARRAY 6 OF INTEGER;
+
+VAR
+	a : MyArr;
+
+BEGIN
+	Out.Open;
+
+	NEW(a[0]);
+	a[0][0] := 1;
+	Out.Int(a[0][0], 0);
 
+	Out.Ln;
+	Out.Flush;
 END Test.