t_id
13
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523451972 | 947856 | True | False | Successfully run |
Record count: 1
{ The results of the following constants differ on 1.0 and 1.1 compiler as constants are evaluated as 32bit integers in 1.1 and as 64bit integers in 1.1 But in all cases int64(-1) should give -1 and not $ffffffff PM } {$R-} const u1 : qword = $ffffffff; i1 : int64 = $ffffffff; u2 : qword = -1; i2 : int64 = -1; begin Writeln(' qword($ffffffff) = ',u1); Writeln(' int64($ffffffff) = ',i1); Writeln(' qword(-1) = ',u2); Writeln(' int64(-1) = ',i2); if i2<>-1 then begin Writeln('"const i2 : int64 = -1;" code'); Writeln('generates a wrong int64 constant'); RunError(1); end; end.