Добавлены открытые массивы

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

diff --git a/test/Test.Mod b/test/Test.Mod
index 5454854a7ecfcc81ec3c6b7e53a5d4de297173f3..22bad208f8350fb48acd03124fef64d909750323 100644 (file)
--- 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.