Test.obn

   1 MODULE Test;
   2
   3   TYPE
   4     CPinfo = RECORD
   5       tag : INTEGER;
   6       index : ARRAY 2 OF LONGINT;
   7       int : LONGINT;
   8       float : REAL;
   9       long : HUGEINT;
  10       double : LONGREAL;
  11       utf8 : POINTER TO ARRAY OF CHAR;
  12     END;
  13
  14     CPool = POINTER TO ARRAY OF CPinfo;
  15
  16   VAR
  17     i : HUGEINT;
  18     cpool : CPool;
  19
  20 BEGIN
  21   i := 16;
  22   NEW(cpool, i);
  23 END Test.