fpcsrc/tests/webtbs/tw6700.pp


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

program bug;

{$inline on}
{$goto on}

procedure crasher;inline;

label beg;

begin
  goto beg;
beg:
end;

begin
  crasher;
end.