freepascal.compiler/bugs/bug0190.pp

procedure a(var b: boolean);
begin
  b:=true;
end;

var C: byte;

begin
  a(boolean(c));
end.