M2compiler-V2/tests/r_record.LST

Listing:

    1  MODULE RRec;
    2  VAR ExitCode : INTEGER;
    3      r, q : RECORD a : INTEGER; b : INTEGER END;
    4  BEGIN
    5    r.a := 7;
    6    r.b := 8;
    7    q := r;
    8    ExitCode := q.a + q.b
    9  END RRec.

    0 errors