M2compiler-V1/tests/t_rec.LST

Listing:

    1  MODULE TRec;
    2  TYPE Point = RECORD x, y : INTEGER END;
    3  VAR p : Point; ExitCode : INTEGER;
    4  BEGIN
    5    p.x := 10;
    6    p.y := 20;
    7    ExitCode := p.x + p.y
    8  END TRec.

    0 errors