M2compiler-V3/compiler/tests/t_ptrrec.mod

MODULE TPtrRec;
TYPE P = RECORD x, y : INTEGER END;
TYPE PP = POINTER TO P;
VAR ExitCode : INTEGER;
VAR p : PP;
BEGIN
  NEW(p);
  p^.x := 7;
  p^.y := 8;
  ExitCode := p^.x + p^.y
END TPtrRec.