Test suite results for test file test/tcint64.pp

Test run data :

View Test suite results

Test file "test/tcint64.pp" information:

t_id 13
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ 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.

Link to SVN view of test/tcint64.pp source.