fpcsrc/tests/webtbf/tw21078.pp


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

{ %fail }

{$goto on}
label x;
var p:pointer;

procedure Foo();
begin
  x:
end;

begin
	p:=@x;
end.