fpc/tests/webtbf/tw25318.pp
2013-11-19 05:29:37 +00:00

11 lines
109 B
ObjectPascal

{%FAIL}
{$mode objfpc}
var
A: array[1..10] of Integer;
E: Integer;
begin
for E in A do
E:=1;
end.