t_id
805
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/17 23:27:00 24 | 2024/05/18 00:48:00 25 | |
| i386 | 21 | 42.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:48:00 25 | |
| sparc | 16 | 32.0 | 2024/05/17 23:31:00 40 | 2024/05/17 23:55:00 41 | |
| x86_64 | 12 | 24.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:34:00 30 | |
| aarch64 | 1 | 2.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| linux | 11 | 22.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:48:00 25 | |
| win32 | 3 | 6.0 | 2024/05/17 23:41:00 23 | 2024/05/18 00:21:00 24 | |
| solaris | 36 | 72.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:34:00 30 | |
| 3.3.1 | 22 | 44.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| 3.2.3 | 28 | 56.0 | 2024/05/17 23:33:00 38 | 2024/05/18 00:48:00 25 |
{ Source provided for Free Pascal Bug Report 1374 }
{ Submitted by "Christian Keck" on 2001-02-01 }
{ e-mail: C.Keck@gmx.net }
program realtest;
var temp : longint;
low : byte;
high : byte;
DLL_Version : extended{real};
begin
temp:= 14340; { This value is normaly retrieved form an external DLL }
low:= ((temp shr 8) and $FF);
high:= (temp and $FF); { Some calculation... }
DLL_Version:= high + (low/100); { to get an real result }
{ ... }
if DLL_Version < 4.56 then { 4.560000000000000E+000 < 4.56 ?!?! }
writeln ('Error! 4.56 < 4.56');
end.