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

+ test for #39786

Browse Source
This commit is contained in:
florian 2022-07-04 22:51:50 +02:00
parent a2a2a6d79e
commit a9db747eb9
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tests/webtbs/tw39786.pp Normal file
View File

@ -0,0 +1,34 @@
{ %OPT=-O4 -Sg }
{$mode objfpc} {$h+}
label A0, A1, B0, B1, C0, C1;
var
x, y: single;
dontDrop: string;
size: ptrint;
begin
x := random;
A0:
y := x * 1 * 2 * 3 * 4 * 5 * 6; // folds
A1:
writestr(dontDrop, y);
size := CodePointer(@A1) - CodePointer(@A0);
writeln('x * 1 * 2 * 3 * 4 * 5 * 6: ', CodePointer(@A1) - CodePointer(@A0), ' b');
B0:
y := x * 1 / 2 * 3 / 4 * 5 / 6; // doesn’t fold
B1:
writestr(dontDrop, y);
if CodePointer(@B1) - CodePointer(@B0) > size then
halt(1);
writeln('x * 1 / 2 * 3 / 4 * 5 / 6: ', CodePointer(@B1) - CodePointer(@B0), ' b');
C0:
y := x / 1 / 2 / 3 / 4 / 5 / 6; // doesn’t fold
C1:
writestr(dontDrop, y);
if CodePointer(@C1) - CodePointer(@C0) > size then
halt(1);
writeln('x / 1 / 2 / 3 / 4 / 5 / 6: ', CodePointer(@C1) - CodePointer(@C0), ' b');
end.