mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 07:58:04 +02:00
28 lines
195 B
ObjectPascal
28 lines
195 B
ObjectPascal
{ %OPT=-Sg }
|
|
|
|
procedure foo;
|
|
begin
|
|
end;
|
|
|
|
procedure test;
|
|
label
|
|
a,b,c,d;
|
|
const
|
|
x: array[0..3] of pointer=(@a,@b,@c,@d);
|
|
begin
|
|
foo;
|
|
a:
|
|
foo;
|
|
b:
|
|
foo;
|
|
c:
|
|
foo;
|
|
d:
|
|
foo;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|