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

9 lines
107 B
ObjectPascal

Var
out: boolean;
int: byte;
Begin
{ savesize is different! }
out:=boolean((int AND $20) SHL 4);
end.