tests/webtbf/tw3294.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %fail }

{ Source provided for Free Pascal Bug Report 3294 }
{ Submitted by "marco" on  2004-09-05 }
{ e-mail:  }

{$mode delphi}

var i : integer;

begin
  for i:=0 to 10 do
    begin
      i:=20;
    end;
end.