MODULE m; VAR i: INTEGER; r: REAL; PROCEDURE p(VAR r: REAL; VAR i: INTEGER); BEGIN PACK(r, i); UNPK(r, i); END p; BEGIN PACK(r, i); UNPK(r, i); END m.