M2compiler-V1/tests/t_rec.mod

MODULE TRec;
TYPE Point = RECORD x, y : INTEGER END;
VAR p : Point; ExitCode : INTEGER;
BEGIN
  p.x := 10;
  p.y := 20;
  ExitCode := p.x + p.y
END TRec.