mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
28 lines
228 B
ObjectPascal
28 lines
228 B
ObjectPascal
program testgoto;
|
|
|
|
{$goto on}
|
|
|
|
function test : longint;
|
|
|
|
label l;
|
|
|
|
|
|
var
|
|
a,b : longint;
|
|
|
|
begin
|
|
a:=1;
|
|
b:=1;
|
|
l:
|
|
if a>b then
|
|
begin
|
|
exit(0);
|
|
end;
|
|
a:=2;
|
|
goto l;
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|