fpcsrc/tests/webtbf/tw9072a.pp


1
2
3
4
5
6
7
8
9
10
11

{ %fail }

{$mode tp}

var
  a: array[1..10] of byte;
  b:  byte;
begin
  b:=1;
  for a[b] := 1 to 10 do ;
end.