b_bad_dup.mod 197 B

123456789101112131415
  1. MODULE BBadDup;
  2. MODULE M EXPORT cnt;
  3. VAR cnt : INTEGER;
  4. BEGIN
  5. cnt := 1
  6. END M;
  7. MODULE M EXPORT k;
  8. VAR k : INTEGER;
  9. BEGIN
  10. k := 2
  11. END M;
  12. VAR ExitCode : INTEGER;
  13. BEGIN
  14. ExitCode := 0
  15. END BBadDup.