mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 10:49:31 +02:00
19 lines
381 B
ObjectPascal
19 lines
381 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3612 }
|
|
{ Submitted by "Alexey Barkovoy" on 2005-01-30 }
|
|
{ e-mail: clootie@ixbt.com }
|
|
var
|
|
str: array[0..200] of WideChar;
|
|
w: PWideChar;
|
|
s: String;
|
|
begin
|
|
str:= 'abcdefgh';
|
|
w:= str;
|
|
s:= w;
|
|
WriteLn(s);
|
|
w:= str + 2;
|
|
s:= w;
|
|
WriteLn(s); // will output "bcdefgh" instead of "cdefgh"
|
|
if s<>'cdefgh' then
|
|
halt(1);
|
|
end.
|