test/Test.Mod

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   a : ARRAY 3 OF INTEGER;
   7
   8 PROCEDURE Ax(VAR x : ARRAY OF INTEGER);
   9 BEGIN
  10 END Ax;
  11
  12 BEGIN
  13   Out.Open;
  14   Ax(a);
  15   Out.Flush;
  16 END Test.