tests/webtbf/tw4737.pp


1
2
3
4
5
6
7
8
9
10
11

{ %fail }
{ %OPT=-CO -Sewnh -vwnh }
{ changed -Seh to -Sewnh because -Cr option
  changes the hint into a warning PM }

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