freepascal.compiler/tests/tbs/tb0012.pp

{ 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.