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

diff --git a/test/Test.Mod b/test/Test.Mod
index 41e1fae..5d8536d 100644
--- 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.