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

* New webtbs/tw39646.pp test to evaluate fix for

Browse Source 
i39646
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-05-04 22:35:11 +01:00 committed by FPK
parent 54aae023ea
commit fb14bc8459
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
tests/webtbs/tw39646.pp Normal file
View File

@ -0,0 +1,55 @@
{ %OPT=-O2 }
program tw39646;
function NestedDivWithAnd(const num: UInt64): Integer;
begin
NestedDivWithAnd := (num div 100000000) and $FF;
end;
function NestedModWithAnd(const num: UInt64): Integer;
begin
NestedModWithAnd := (num mod 100000000) and $FF;
end;
const
Input: array[0..5] of UInt64 = (0, 1, 100000001, 4000000385, 5000000006, 25700000385);
ExpectedD: array[0..5] of Integer = (0, 0, 1, 40, 50, 1);
ExpectedM: array[0..5] of Integer = (0, 1, 1, 129, 6, 129);
var
Failed: Boolean;
X, Output: Integer;
begin
WriteLn('Testing "(UInt64 div 100000000) and $FF" with implicit typecast to Integer:');
Failed := False;
for X := Low(Input) to High(Input) do
begin
Write('- Input = ', Input[X], ' ... ');
Output := NestedDivWithAnd(Input[X]);
if Output = ExpectedD[X] then
WriteLn('Passed')
else
begin
WriteLn('FAILED! Got ', Output, ', expected ', ExpectedD[X]);
Failed := True;
end;
end;
WriteLn(#10'Testing "(UInt64 mod 100000000) and $FF" with implicit typecast to Integer:');
for X := Low(Input) to High(Input) do
begin
Write('- Input = ', Input[X], ' ... ');
Output := NestedModWithAnd(Input[X]);
if Output = ExpectedM[X] then
WriteLn('Passed')
else
begin
WriteLn('FAILED! Got ', Output, ', expected ', ExpectedM[X]);
Failed := True;
end;
end;
if Failed then
Halt(1)
else
WriteLn('ok');
end.