mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
16 lines
127 B
ObjectPascal
16 lines
127 B
ObjectPascal
{ %fail }
|
|
{$goto on}
|
|
label
|
|
l;
|
|
|
|
procedure p;
|
|
var
|
|
a : longint;
|
|
begin
|
|
writeln(longint(@l));
|
|
end;
|
|
|
|
begin
|
|
l:
|
|
end.
|