{ GPC demo program. For copying conditions see the file `COPYING.DEMO'. }

program AnsiCharDemo;
var
  A: AnsiChar;  { There is nothing special with `AnsiChar'. }
  B: Char;
begin
  A := 'A';
  A := B
end.
