fpcsrc/tests/webtbs/tw16861.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(*$packset 1 *)
program test;
var
  s8: set of 0..7;
  b: byte;
begin
  b:=17;
  s8:=[];
  if b in (s8+[1]) then
    halt(1);
  b:=5;
  if not(b in (s8+[5])) then
    halt(2);
end.