fpcsrc/tests/webtbs/tw7440.pp


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

{ %CPU=i386 }
{ %OPT=-S2cgi -OG2 -gl -al }
program bugloop;

{$mode objfpc}

var
  d: array[0..0] of double;
  i: integer;

begin
  for i := low(d) to high(d) do
    d[i] := i;
  writeln('ok');
end.