X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=test%2FTest.Mod;h=5d8536d5febdcc37b5d7e8f671723f6e42ceebbe;hb=89dfaf94ddbbc501020554232ce026b6584e8045;hp=5454854a7ecfcc81ec3c6b7e53a5d4de297173f3;hpb=3376c57aa304940b405940c6463df71c7c1c7f01;p=dsw-obn.git

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