fpcsrc/tests/tbs/tb0087.pp


1
2
3
4
5
6
7
8
9
10
11

{ Old file: tbs0103.pp }
{ problems with boolean typecasts (other type)          OK 0.99.6 (PFV) }


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