16 lines
180 B
ObjectPascal
16 lines
180 B
ObjectPascal
// #2271
|
|
type
|
|
A = class
|
|
procedure p;
|
|
label 1;
|
|
begin
|
|
Arr(3).Select(b -> b);
|
|
if True then
|
|
goto 1;
|
|
1: Print(1);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
end.
|