t_id
1154
t_adddate
2003/10/22
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 1021978545 | 1027256 | False | True | Skipping test because it is a known bug |
Record count: 1
{ Source provided for Free Pascal Bug Report 2656 }
{ Submitted by "marco" on 2003-08-27 }
{ e-mail: marco@freepascal.org }
{$ifdef fpc}{$mode Delphi}{$endif}
var p1,p2 : pchar;
a,b,c : longint;
begin
c:=a+(p1-p2)+3; // fpc accepts this. Delphi ?
// vs
c:=a+p1-p2+3; // delphi accepts this, fpc not.
end.