fpc/tests/tbf/tb0220.pp
2011-02-27 18:03:04 +00:00

9 lines
103 B
ObjectPascal

{ %fail }
type
tset = set of byte;
begin
if 2 in tset then
writeln('should not compile')
end.