Test.obn

   1 MODULE Test;
   2
   3 IMPORT SYSTEM;
   4
   5 VAR
   6   ptr : SYSTEM.PTR;
   7   arr : POINTER TO ARRAY OF INTEGER;
   8
   9 BEGIN
  10   NEW(arr, 20);
  11   ptr := arr;
  12 END Test.