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

- removed overflow, so the test also works with constant propagation and -Co

Browse Source 
git-svn-id: trunk@33201 -
This commit is contained in:
Jonas Maebe 2016-03-07 14:40:52 +00:00
parent 38fd0efa3b
commit 70cd8f6e59
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw29620.pp
View File

@ -1,12 +1,12 @@
var x:uint64; var x:uint64;
y:longword; y:longword;
begin begin
y:=123; y:=12;
x:=y*uint64(10116239910488455739); x:=y*uint64(10116239910488455739);
if x<>8365656051540097625 then if x<>8365656051540097625 then
halt(1); halt(1);
x:=y*uint64($8000000000000000); x:=y*uint64($8000000000000000);
if x<>(uint64(123) shl 63) then if x<>(uint64(12) shl 63) then
halt(2); halt(2);
end. end.