fpc/tests/webtbs/tw40504.pp

18 lines
132 B
ObjectPascal

{ %NORUN }
program tw40504;
{$scopedenums on}
Type
TSet = set of (a,b);
var
S : TSet;
begin
S:=[];
Include(S,a);
end.