mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:08:13 +02:00
168e652d42
constant node (rather than to just a blocknode with a statement
assigning a constant to a temp)
git-svn-id: trunk@6832 -
12 lines
145 B
ObjectPascal
12 lines
145 B
ObjectPascal
{$inline on}
|
|
|
|
function f(const a,b: longint): longint; inline;
|
|
begin
|
|
f:=a*b;
|
|
end;
|
|
|
|
begin
|
|
if (f(f(f(2,5),3),4) <> 120) then
|
|
halt(1);
|
|
end.
|