var
  c: ^Char := nil
  p: Pointer := nil

begin
  p := c;
  c := p;

  return 0
end.