Добавлен NIL и автоматическое разыменование указателей

[dsw-obn.git] / test / Test.Mod

diff --git a/test/Test.Mod b/test/Test.Mod
index 5454854a7ecfcc81ec3c6b7e53a5d4de297173f3..41e1faeb099b8b10a52e4abd8a4822de32c9c08e 100644 (file)
--- 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.