MODULE TestAllocate;
   IMPORT Log := StdLog;
   PROCEDURE Do* (bits: INTEGER);
      VAR a: ARRAY 64 OF POINTER TO ARRAY OF REAL;
         n, i, j: INTEGER;
         mem, memtot: REAL;
   BEGIN
      n := ASH(1, bits); memtot := 0; j := 0;
      NEW(a[j], n);
      WHILE (j < 64) & (a[j] # NIL)DO
         FOR i := 0 TO n - 1 DO
            a[j, i] := 0
         END;
         mem := n * SIZE(REAL) / 1024. / 1024.;
         memtot := mem + memtot;
         Log.Int(j); Log.String(":"); Log.Tab;
         Log.Real(mem); Log.String(" MB"); Log.Tab;
         Log.Real(memtot); Log.String(" MB"); Log.Ln;
         INC(j);
         IF j < 64 THEN NEW(a[j], n) END
      END;
      IF j < 64 THEN Log.String("Not enough memory"); Log.Ln END;
      FOR j := 0 TO 63 DO
         a[j] := NIL
      END
   END Do;

END TestAllocate.

^Q"TestAllocate.Do(24)"

   PROCEDURE AllocHeapMem (size: INTEGER; VAR c: Cluster);
      (* allocate at least size bytes, typically at least 256 kbytes are allocated *)
      CONST M = 1536 * 100000H;   (* 1.5 GByte *)
      CONST N = 65536;   (* cluster size for dll *)
      VAR adr, s: INTEGER;