freepascal.compiler/tests/webtbf/tw4737.pp

{ %fail }
{ %OPT=-Seh -vh}

var a:int64;
i:integer;
begin
a:=0;
for i:=a to 10 do;
end.