t_call2.mod 94 B

12345678
  1. MODULE T;
  2. VAR i : INTEGER;
  3. PROCEDURE P(VAR v : INTEGER);
  4. BEGIN
  5. END P;
  6. BEGIN
  7. P(1 + 2)
  8. END T.