freepascal.compiler/tests/tbs/tb0294.pp

{ Old file: tbs0350.pp }
{  }

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