fpcsrc/tests/webtbs/tw6525.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{ %cpu=i386,x86_64 }

{$goto on}

label l1;
var
  err : boolean;
begin
  asm
   jmp l1
  end;
  writeln('oops');
  err:=true;
l1:
  writeln('hello');
  if err then
    halt(1);
end.