t_call.mod 99 B

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