t_id
1423
t_adddate
2004/12/27
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 3477 }
{ Submitted by "Michalis Kamburelis" on 2004-12-26 }
{ e-mail: michalis@camelot.homedns.org }
{ Prints
666666
6666666
0000000066666666
0000000666666666
0000006666666666
Should print (and does after applying my simple patch)
666666
6666666
66666666
666666666
6666666666
}
uses SysUtils,erroru;
procedure Check(a,b:ansistring);
begin
writeln(a);
if a<>b then
error;
end;
begin
Check(Format('%x', [$666666]),'666666');
Check(Format('%x', [$6666666]),'6666666');
Check(Format('%x', [$66666666]),'66666666');
Check(Format('%x', [$666666666]),'666666666');
Check(Format('%x', [$6666666666]),'6666666666');
end.