OberonCore

MODULE TestNew;

   TYPE
      Huge = POINTER TO RECORD
         a: ARRAY 256*1024 OF BYTE
      END;

   VAR
      huge: Huge;

   PROCEDURE Load*;
   BEGIN
   END Load;

BEGIN
   NEW(huge)
END TestNew.

^Q TestNew.Load
^Q DevLinker.LinkExe TestNew.exe := National Kernel+ TestNew

MODULE TestNew;

   TYPE
      Huge = POINTER TO RECORD
         a: ARRAY 256*1024 OF BYTE
      END;
      A = POINTER TO RECORD
         a: ARRAY 2*1024 OF BYTE
      END;

   VAR
      huge: Huge; a: A;

   PROCEDURE Load*;
   BEGIN
   END Load;

BEGIN
   NEW(a); NEW(huge);
END TestNew.