t_bad_call.mod 72 B

1234
  1. MODULE BadCall;
  2. VAR x : INTEGER;
  3. BEGIN x := 1; WriteInt(x)
  4. END BadCall.