t_id
413
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
480565219 | 940917 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0211.pp } { a and not a is true !!! (if a:=boolean(5)) OK 0.99.11 (PM) } var a,b : boolean; c : byte; i : longint; procedure Error; begin Writeln('Error in bug0211'); Halt(1); end; begin c:=5; a:=boolean(c); if a and not a then Begin Writeln('FPC is crazy !!'); Error; End; i:=256; a:=boolean(i); { the value here is less trivial } { BP returns false here !! } { the problem is the converting wordbool to boolean } { if wordbool is 256 should not convert true to false !! } Writeln('boolean(256) =',a); end.