mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 20:59:26 +02:00
f5de7e34d3
they don't have explicit side-effects, and if -Oodeadvalues (part of -O4)
is active (because it can result in the removal of range check errors,
segmentation faults, etc)
git-svn-id: trunk@22254 -
18 lines
179 B
ObjectPascal
18 lines
179 B
ObjectPascal
{ %opt=-O-3 }
|
|
{ %result=201 }
|
|
|
|
{$inline on}
|
|
{$r+}
|
|
|
|
procedure test(l: longint); inline;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
a: array[0..0] of byte;
|
|
i: longint;
|
|
begin
|
|
i:=1345;
|
|
test(a[i]);
|
|
end.
|