X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=test%2FTest.Mod;h=22bad208f8350fb48acd03124fef64d909750323;hb=e763da864f7330c2b53029782c6b0d85543eb4d2;hp=5d8536d5febdcc37b5d7e8f671723f6e42ceebbe;hpb=ea5cf056abf2bf42e9f328b9c1f2d94ee96bcc4c;p=dsw-obn.git

diff --git a/test/Test.Mod b/test/Test.Mod
index 5d8536d..22bad20 100644
--- a/test/Test.Mod
+++ b/test/Test.Mod
@@ -2,19 +2,15 @@ MODULE Test;
 
 IMPORT Out;
 
-TYPE
-	PVector = POINTER TO Vector;
-	Vector = ARRAY 3 OF INTEGER;
-
 VAR
-	a : PVector;
-	b : Vector;
+  a : ARRAY 3 OF INTEGER;
 
+PROCEDURE Ax(VAR x : ARRAY OF INTEGER);
 BEGIN
-	Out.Open;
-
-	NEW(a);
-	a^ := b;
+END Ax;
 
-	Out.Flush;
+BEGIN
+  Out.Open;
+  Ax(a);
+  Out.Flush;
 END Test.