paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for negative int64 constants

Browse Source
This commit is contained in:
pierre 2001-09-07 07:32:17 +00:00
parent 8daec5f2a6
commit b95509219c
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/test/tcint64.pp Normal file
View File

@ -0,0 +1,24 @@
{ 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.