fpcsrc/tests/tbs/tb0544.pp


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


type SomeType = ( SomeElem );

const ElemSet = [ SomeElem ];

var
  b  : boolean;
begin
   b:=(SomeElem in ElemSet);
   writeln(b);
   b:=(SomeElem in (ElemSet + []));
   writeln(b);
   if not b then
     halt(1);
end.