fpcsrc/tests/webtbs/tw3294a.pp


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

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

{$mode tp}

var i : integer;

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