mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 11:49:23 +02:00
e232588635
U compiler/nflw.pas A tests/webtbs/tw37823.pp -- Aufzeichnung der Informationen für Zusammenführung von r46974 in ».«: U . git-svn-id: branches/fixes_3_2@47909 -
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.
|