M2compiler-V1/tests/p_newarr.mod

MODULE PNewArr;
TYPE P = POINTER TO ARRAY [1 .. 3] OF INTEGER;
VAR p : P; ExitCode : INTEGER;
BEGIN
  NEW(p);
  p^[1] := 11; p^[2] := 22; p^[3] := 33;
  ExitCode := p^[1] + p^[2] + p^[3];
  DISPOSE(p)
END PNewArr.