t_id
727
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/20 23:33:00 38 | 2024/05/21 01:20:00 26 | |
| i386 | 22 | 44.0 | 2024/05/20 23:34:00 25 | 2024/05/21 01:20:00 26 | |
| sparc | 16 | 32.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| x86_64 | 7 | 14.0 | 2024/05/20 23:44:00 14 | 2024/05/21 01:05:00 16 | |
| powerpc64 | 2 | 4.0 | 2024/05/21 01:10:00 101 | 2024/05/21 01:11:00 108 | |
| aarch64 | 2 | 4.0 | 2024/05/21 00:12:00 32 | 2024/05/21 00:58:00 35 | |
| sparc64 | 1 | 2.0 | 2024/05/20 23:47:00 148 | 2024/05/20 23:47:00 148 | |
| linux | 30 | 60.0 | 2024/05/20 23:40:00 26 | 2024/05/21 01:20:00 26 | |
| win32 | 1 | 2.0 | 2024/05/20 23:41:00 23 | 2024/05/20 23:41:00 23 | |
| solaris | 19 | 38.0 | 2024/05/20 23:33:00 38 | 2024/05/20 23:55:00 41 | |
| 3.3.1 | 29 | 58.0 | 2024/05/20 23:34:00 25 | 2024/05/21 01:18:00 30 | |
| 3.2.3 | 21 | 42.0 | 2024/05/20 23:33:00 38 | 2024/05/21 01:20:00 26 |
var
dat,dat2 : file of byte;
j : longint;
Buffer,Buffer2 : Array[0..2047] of byte;
begin
for j:=0 to 2047 do
Buffer[j]:=j and $ff;
Assign(dat,'tbug896.tmp');
Rewrite(dat,1);
for j:= 0 to 2047 do
write (dat,Buffer[j]);
Close(dat);
Assign(dat2,'tbug896a.tmp');
Rewrite(dat2);
for j:= 0 to 2047 do
write (dat2,Buffer[j]);
Close(dat2);
Reset(dat);
Reset(dat2,1);
for j:=0 to 2047 do
begin
read(dat,Buffer[j]);
read(dat2,Buffer2[j]);
if Buffer[j]<>Buffer2[j] then
begin
Writeln('Error in typed file handling');
Halt(1);
end;
end;
Close(dat);
close(dat2);
end.