mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:28:13 +02:00
e1536bdf26
is left which would need but does not have an implicit try...finally block, resolves #37823 git-svn-id: trunk@46974 -
22 lines
268 B
ObjectPascal
22 lines
268 B
ObjectPascal
{$MODE ISO}
|
|
{$implicitExceptions off}
|
|
{$Q+}
|
|
{$R+}
|
|
program gt;
|
|
label 1;
|
|
procedure jump;
|
|
var
|
|
a: integer;
|
|
b: rawbytestring;
|
|
begin
|
|
b := 'nanu';
|
|
writeln('nanu');
|
|
goto 1;
|
|
end;
|
|
begin
|
|
jump;
|
|
writeln('not jumped!');
|
|
1:
|
|
writeln('jumped!');
|
|
end.
|