Добавлены многомерные массивы и статическая проверка индексов

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

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