mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +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 -
25 lines
222 B
ObjectPascal
25 lines
222 B
ObjectPascal
{ %opt=-O-4 }
|
|
{ %result=201 }
|
|
|
|
{$inline on}
|
|
{$r+}
|
|
|
|
var
|
|
l: longint;
|
|
|
|
function f: longint;
|
|
begin
|
|
l:=5;
|
|
f:=2;
|
|
end;
|
|
|
|
procedure test(l: longint); inline;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
a: array[0..0] of byte;
|
|
begin
|
|
test(a[f]);
|
|
end.
|