freepascal.compiler/tests/tbf/tb0194.pp

{ %fail }
{$goto on}
label
  l;

procedure p;
  var
    a : longint;
  begin
    writeln(longint(@l));
  end;

begin
  l:
end.