M2compiler-V3/compiler/tests/t_ptrarray.mod

MODULE TPtrArr;
// Pointer to array: heap sizing, ^-then-index chains. Exit 15.
TYPE Arr = ARRAY [0..2] OF INTEGER;
TYPE PArr = POINTER TO Arr;
VAR ExitCode : INTEGER;
VAR p : PArr;
VAR i, sum : INTEGER;
BEGIN
  NEW(p);
  sum := 0;
  FOR i := 0 TO 2 DO p^[i] := i * 5; sum := sum + p^[i] END;
  DISPOSE(p);
  ExitCode := sum
END TPtrArr.