fpcsrc/tests/webtbs/tw11849.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %OPT=-Sew -vw -Oodfa }
{ %norun }
{$mode objfpc}
procedure GiveMe(out i: integer);
begin
  i:=0;
end;

function Test(a: integer): integer;
var
  i: integer;
begin
  GiveMe(i);
  Result:=i;
end;


begin
end.