M2compiler-V1/tests/t_mrec.LST

Listing:

    1  MODULE TMRec;
    2  MODULE M EXPORT Point, Origin;
    3  TYPE Point = RECORD x, y : INTEGER END;
    4  VAR Origin : Point;
    5  END M;
    6  VAR p : M.Point; ExitCode : INTEGER;
    7  BEGIN
    8    p.x := 10;
    9    p.y := 20;
   10    M.Origin := p;
   11    p.x := 0;
   12    p.y := 0;
   13    p := M.Origin;
   14    ExitCode := p.x + p.y
   15  END TMRec.

    0 errors