M2compiler-V1/tests/r_varpar.LST

Listing:

    1  MODULE RVarPar;
    2  TYPE Point = RECORD x, y : INTEGER END;
    3  VAR p : Point; ExitCode : INTEGER;
    4  PROCEDURE Move(VAR q : Point);
    5  BEGIN
    6    q.x := q.x + 100;
    7    q.y := q.y + 200
    8  END Move;
    9  BEGIN
   10    p.x := 1;
   11    p.y := 2;
   12    Move(p);
   13    ExitCode := p.x + p.y
   14  END RVarPar.

    0 errors