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

* New test for i40647

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-02-17 15:09:49 +00:00 committed by FPK
parent 1e0f6f9f64
commit 068b8f9e9d
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw40647.pp Normal file
View File

@ -0,0 +1,17 @@
{ %OPT=-O1 }
program tw40647;
var
k: longint = 2;
x: longint;
begin
{ Tests faulty LEA optimisations that manifest under -O1 since the node
tree doesn't simplify k + k in this instance }
x := k + k + 1;
if x <> 5 then
begin
WriteLn('FAIL: Expected 5 but got ', x);
Halt(1);
end;
WriteLn('ok');
end.