M2compiler-V1/tests/t_ptr.mod

MODULE TPtr;
TYPE P = POINTER TO INTEGER;
VAR p : P; ExitCode : INTEGER;
BEGIN
  NEW(p);
  p^ := 42;
  ExitCode := p^;
  DISPOSE(p)
END TPtr.