t_id
1474
t_adddate
2005/01/31
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022776496 | 1027388 | True | False | Successfully run |
Record count: 1
{ 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.