M2compiler-V2/tests/r_record.mod

MODULE RRec;
VAR ExitCode : INTEGER;
    r, q : RECORD a : INTEGER; b : INTEGER END;
BEGIN
  r.a := 7;
  r.b := 8;
  q := r;
  ExitCode := q.a + q.b
END RRec.