Test suite results for test file test/tcint64.pp

Test run data :

Run ID:
Operating system: solaris
Processor: sparc
Version: 3.3.1
Fails/OK/Total: 57/9104/9161
Version: 3.3.1
Full version: 3.3.1-15627-g64f2e4b-unpushed
Comment: -Agas -Cg -Fd
Machine: unstable10s
Category: 1
SVN revisions: e601156:d3fd0b8:64f2e4b:6a10963
Submitter: pierre
Date: 2024/04/28 12:53:00
Previous run: 940458
Next run: 941965

Hide skipped tests

Hide successful tests

Test file "test/tcint64.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
482401588941218TrueFalseSuccessfully run

Record count: 1

No log of 941218.

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.