d_clash_prog.mod 221 B

1234567
  1. MODULE ClashProg;
  2. (* Same-named globals AND same-named procedures in two modules. *)
  3. IMPORT ClashA, ClashB;
  4. VAR ExitCode : INTEGER;
  5. BEGIN
  6. ExitCode := ClashA.count + ClashB.count + ClashA.Get + ClashB.Get
  7. END ClashProg.