fpcsrc/tests/webtbs/tw9096.pp


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

{ %OPT=-Ooloopunroll }
var
 arr : array[0..0,0..0] of longint;
 i : longint;

begin
  i:=1234;
  for i := 0 to 0 do
    if i<>0 then
      halt(1);
  writeln('ok');
end.