freepascal.compiler/bugs/bug00051.pp

var
   b : boolean;

begin
  b:=1<>1;
end.