freepascal.compiler/bugs/bug0064.pp

var
 i: byte;
 j: integer;
 c: char;
Begin
  case i of
  Ord('x'): ;
  end;
  case j of
  Ord('x'): ;
  end;
  case c of
  Chr(112): ;
  end;
end.