M2compiler-V1/tests/v_field.LST

Listing:

    1  MODULE VField;
    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 Bump(VAR x : INTEGER);
    6  BEGIN
    7    x := x + 1000
    8  END Bump;
    9  BEGIN
   10    r.a := 1;
   11    r.b.u := 10;
   12    r.b.v := 20;
   13    Bump(r.b.v);
   14    ExitCode := r.a + r.b.u + r.b.v
   15  END VField.

    0 errors