freepascal.compiler/bugs/bug0012.pp

var
   a,b : longint;

begin
   a:=1;
   b:=2;
   if byte(a>b)=byte(a<b) then
     writeln('Ohhhh');
end.