freepascal.compiler/tests/tbs/tbs0350.pp

var
  c : char;
  i : integer;
begin
  i:=integer(c);
  c:=char(i);
end.