X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=test%2FTest.Mod;h=22bad208f8350fb48acd03124fef64d909750323;hb=e763da864f7330c2b53029782c6b0d85543eb4d2;hp=5454854a7ecfcc81ec3c6b7e53a5d4de297173f3;hpb=3376c57aa304940b405940c6463df71c7c1c7f01;p=dsw-obn.git

diff --git a/test/Test.Mod b/test/Test.Mod
index 5454854..22bad20 100644
--- a/test/Test.Mod
+++ b/test/Test.Mod
@@ -1,6 +1,16 @@
 MODULE Test;
 
-TYPE
-	MyArr = POINTER TO ARRAY OF MyArr;
+IMPORT Out;
 
+VAR
+  a : ARRAY 3 OF INTEGER;
+
+PROCEDURE Ax(VAR x : ARRAY OF INTEGER);
+BEGIN
+END Ax;
+
+BEGIN
+  Out.Open;
+  Ax(a);
+  Out.Flush;
 END Test.