freepascal.compiler/bugs/bug0204.pp

var
  b : boolean;
begin
  byte(b):=1;
end.