fpcsrc/tests/test/tisogoto1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

{$mode iso}
procedure test;
  label
    1;
  procedure p;
    begin
      goto 1;
      halt(1);
    end;
  begin
    p;
    halt(1);
  1:
  end;


label
  1;

procedure p;
  begin
    goto 1;
    halt(1);
  end;

begin
  test;
  p;
  halt(1);
1:
  writeln('ok');
end.