path: root/tests/webtbs/tw0815.pp

{$mode delphi}

function T: Integer;
begin
  for Result:=0 to 10 do ;
end;

begin
  T;
end.