mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:47:58 +02:00
25 lines
577 B
ObjectPascal
25 lines
577 B
ObjectPascal
{ Old file: tbs0015.pp }
|
|
{ tests for wrong allocated register for return result of floating function (allocates int register) OK 0.9.2 }
|
|
|
|
program test;
|
|
type
|
|
realgr= array [1..1000] of double;
|
|
var
|
|
sx :realgr;
|
|
i :integer;
|
|
stemp :double;
|
|
begin
|
|
sx[1]:=10;
|
|
sx[2]:=-20;
|
|
sx[3]:=30;
|
|
sx[4]:=-40;
|
|
sx[5]:=50;
|
|
sx[6]:=-60;
|
|
i:=1;
|
|
stemp:=1000;
|
|
stemp := stemp+abs(sx[i])+abs(sx[i+1])+abs(sx[i+2])+abs(sx[i+3])+
|
|
abs(sx[i+4])+abs(sx[i+5]);
|
|
writeln(stemp);
|
|
if stemp<>1210.0 then halt(1);
|
|
end.
|