test/Test.Mod

   1 MODULE Test;
   2
   3 IMPORT Out;
   4
   5 TYPE
   6         PVector = POINTER TO Vector;
   7         Vector = ARRAY 3 OF INTEGER;
   8
   9 VAR
  10         a : PVector;
  11         b : Vector;
  12
  13 BEGIN
  14         Out.Open;
  15
  16         NEW(a);
  17         a^ := b;
  18
  19         Out.Flush;
  20 END Test.