fpc/tests/webtbf/tw37475.pp
2020-08-14 18:10:56 +00:00

10 lines
105 B
ObjectPascal

{ %fail }
{ %opt=-O3 }
var a : integer;
begin
for a := 1 to 1 do
for a := 1 to a do
end;
end.