diff --git a/test/Test.Mod b/test/Test.Mod
index 5d8536d5febdcc37b5d7e8f671723f6e42ceebbe..22bad208f8350fb48acd03124fef64d909750323 100644 (file)
--- a/test/Test.Mod
+++ b/test/Test.Mod
IMPORT Out;
IMPORT Out;
-TYPE
- PVector = POINTER TO Vector;
- Vector = ARRAY 3 OF INTEGER;
-
VAR
VAR
- a : PVector;
- b : Vector;
+ a : ARRAY 3 OF INTEGER;
+PROCEDURE Ax(VAR x : ARRAY OF INTEGER);
BEGIN
BEGIN
- Out.Open;
-
- NEW(a);
- a^ := b;
+END Ax;
- Out.Flush;
+BEGIN
+ Out.Open;
+ Ax(a);
+ Out.Flush;
END Test.
END Test.