fpcsrc/tests/tbs/ub0461.pp


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

unit ub0461;
{$inline on}
interface
procedure p1;inline;
implementation

procedure p1;inline;
var
  i,k : longint;

  procedure f;
  begin
    i:=20;
    k:=i*10;
    writeln('hello ',k);
  end;

begin
  f;
end;

end.