M2compiler-V1/tests/v_rec.LST

Listing:

    1  MODULE VRec;
    2  TYPE Inner = RECORD u, v : INTEGER END;
    3  TYPE Outer = RECORD a : INTEGER; b : Inner END;
    4  VAR r : Outer; ExitCode : INTEGER;
    5  PROCEDURE SetZ(VAR q : Inner);
    6  BEGIN
    7    q.u := 7;
    8    q.v := 8
    9  END SetZ;
   10  BEGIN
   11    r.a := 1;
   12    SetZ(r.b);
   13    ExitCode := r.a + r.b.u + r.b.v
   14  END VRec.

    0 errors