t_id
781
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
| i386 | 14 | 28.0 | 2024/05/21 01:58:00 33 | 2024/05/21 02:32:00 27 | |
| x86_64 | 34 | 68.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
| aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
| linux | 49 | 98.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
| win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
| 3.3.1 | 28 | 56.0 | 2024/05/21 01:56:00 16 | 2024/05/21 02:32:00 27 | |
| 3.2.3 | 22 | 44.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 |
{ Source provided for Free Pascal Bug Report 1223 }
{ Submitted by "Denis Yarkovoy" on 2000-11-03 }
{ e-mail: gunky9@geocities.com }
Type
TPoint = record
X, Y : integer;
end;
operator + (const p1, p2:TPoint) p : TPoint;
begin
p.X:=p1.X+p2.X;
p.Y:=p1.Y+p2.Y;
end;
var d,d1:TPoint;
begin
d.x:=5;d.y:=34;
d1.x:=6;d1.y:=-50;
d:=d+d1;
if (d.x<>11) or (d.y<>-16) then
begin
Writeln('Error is operator overloading');
Halt(1);
end
else
Writeln('Operator overloading works correctly');
end.