PChar bug

The following code:

var
p : PChar;
s : string;
begin
p:=‘123’;
s:=p;
Writeln(s);
end.

Results in ‘12’, not ‘123’.

Thanks for the report, the issue was logged as #49736.
By the way, this bug appears in D7, in D2010 everything OK.

Best regards