MODULE Test;

  TYPE
    CPinfo = RECORD
      tag : INTEGER;
      index : ARRAY 2 OF LONGINT;
      int : LONGINT;
      float : REAL;
      long : HUGEINT;
      double : LONGREAL;
      utf8 : POINTER TO ARRAY OF CHAR;
    END;

    CPool = POINTER TO ARRAY OF CPinfo;

  VAR
    i : HUGEINT;
    cpool : CPool;

BEGIN
  i := 16;
  NEW(cpool, i);
END Test.