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

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

diff --git a/test/Test.Mod b/test/Test.Mod
index 5454854a7ecfcc81ec3c6b7e53a5d4de297173f3..5d8536d5febdcc37b5d7e8f671723f6e42ceebbe 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;
+       PVector = POINTER TO Vector;
+       Vector = ARRAY 3 OF INTEGER;
+
+VAR
+       a : PVector;
+       b : Vector;
+
+BEGIN
+       Out.Open;
+
+       NEW(a);
+       a^ := b;
 
+       Out.Flush;
 END Test.