Test suite results for test file tbs/tb0191.pp

Test run data :

Test file "tbs/tb0191.pp" information:

t_id 426
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 734802.

Source:

{ Old file: tbs0225.pp }
{ Sigsegv when run with range checks on open arrays    OK 0.99.11 (PFV) }

 program bug0255;

{$mode objfpc}

{$R+}

  function erwwert(const feld: array of LongInt):extended;
   var i: LongInt;
   begin
    Result:=0;
    for i:=low(feld) to high(feld)
        do begin
            writeln(i);  // gives "0"
            Result:=Result+feld[i];
           end;          //^^^^^^^ there occurs the segfault (216)
                         //        on the first loop
    Result:=Result/(high(feld)-low(feld)+1);
   end;

 var werte: array[0..299] of LongInt;
     i: LongInt;

 begin
  //init the array
  for i:=0 to 299
      do werte[i]:=Random(5)-2;

  //and do something with it
  writeln(erwwert(werte):6:5);
 end.

Link to SVN view of tbs/tb0191.pp source.