Listing:

    1  MODULE CRec;
    2  TYPE R = RECORD x, y : INTEGER END;
    3  VAR r1, r2 : R; ExitCode : INTEGER;
    4  BEGIN
    5    r1.x := 8; r1.y := 9;
    6    r2 := r1;
    7    ExitCode := r2.x + r2.y
    8  END CRec.

    0 errors