blob: 74bc3b243148e7a12a9b8d4c305f0609f4e81a4c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ 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.
|
