fpc/bugs/bug0070.pp
1998-03-25 11:26:49 +00:00

11 lines
125 B
ObjectPascal

Program Test;
type
myenum = (YES,NO,MAYBE);
var
myvar:set of myenum;
Begin
Include(myvar,Yes);
Exclude(myvar,No);
end.