t_bad_setelem.mod 132 B

12345678
  1. MODULE TBadSetElem;
  2. TYPE S = SET OF [0..7];
  3. VAR s : S;
  4. VAR ExitCode : INTEGER;
  5. BEGIN
  6. s := {300};
  7. ExitCode := 0
  8. END TBadSetElem.