pack_unpk.ob 169 B

1234567891011121314
  1. MODULE m;
  2. VAR i: INTEGER; r: REAL;
  3. PROCEDURE p(VAR r: REAL; VAR i: INTEGER);
  4. BEGIN
  5. PACK(r, i);
  6. UNPK(r, i);
  7. END p;
  8. BEGIN
  9. PACK(r, i);
  10. UNPK(r, i);
  11. END m.