{ %fail }

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

procedure Foo();
begin
  x:
end;

begin
	p:=@x;
end.