mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 14:39:35 +02:00
16 lines
257 B
ObjectPascal
16 lines
257 B
ObjectPascal
{ %version=2.3 }
|
|
{ %opt=-Oodfa -vw -Sew}
|
|
program DoesNotSeemToBeInited;
|
|
|
|
{$goto on}
|
|
|
|
label 10, 20, 30;
|
|
var i: integer;
|
|
begin
|
|
goto 20;
|
|
10: begin i:= i + 1; goto 30 end;
|
|
20: i:= 1;
|
|
goto 10;
|
|
30: writeln( 'i = ', i)
|
|
end.
|