t_id
805
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
483306747 | 941375 | True | False | Successfully run |
Record count: 1
{ 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.