MODULE Test;

IMPORT SYSTEM;

VAR
  ptr : SYSTEM.PTR;
  arr : POINTER TO ARRAY OF INTEGER;

BEGIN
  NEW(arr, 20);
  ptr := arr;
END Test.