s_bad_op.mod 84 B

12345
  1. MODULE SBadOp;
  2. VAR s : SET OF [0 .. 7]; x : INTEGER;
  3. BEGIN
  4. s := s + x
  5. END SBadOp.