freepascal.compiler/bugs/bug0192.pp

var
  k,l : word;
begin
  if (k<>l)=false then
   ;
  if (k<>l)=true then
   ;
end.