fpcsrc/tests/test/tforin21.pp


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

{ %FAIL}
{$mode objfpc}
{$apptype console}

operator enumerator(a: Integer): Integer;
begin
  Result := 0;
end;

var
  i: Integer;
begin
  for i in 1 do Writeln(i);
end.