mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 01:22:43 +02:00
31 lines
643 B
ObjectPascal
31 lines
643 B
ObjectPascal
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.
|