fpcsrc/tests/webtbs/uw11762.pp


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

{$goto on}
unit uw11762;
interface
procedure p; inline;
var
  i : longint;
implementation
procedure p; inline;
label x;
begin
    goto x;
    i:=i+10;
    x:
    i:=i+1;
end;
begin
end.