t_bad_in.mod 111 B

12345
  1. MODULE TBadIn;
  2. VAR ExitCode : INTEGER;
  3. BEGIN
  4. IF 1 IN 2 THEN ExitCode := 1 ELSE ExitCode := 0 END
  5. END TBadIn.