Test suite results for test file test/tfpuover.pp

Test run data :

View Test suite results

Test file "test/tfpuover.pp" information:

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

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{$define FAIL}

var
  x1,y1,z : double;

  function x : double;
  begin
    x :=((x1+y1)*(x1-y1))*((x1+y1)*(x1-y1));
  end;
  function y : double;
  begin
    y :=((x1*y1)/(x1+y1)){$ifdef FAIL}*((x1+y1)*(x1-y1)){$endif};
  end;

begin
  x1:=2;
  y1:=3;
{ Explanation a addnote needs the same number of fpu regs
  that the max fpu need of left and right node, unless
  these two numbers are equal:
  this is the reason of the symetric form of this test code PM }
  z:=((((x+y)*(x-y))+((x+y)*(x-y)))+(((x+y)*(x-y))+((x+y)*(x-y)))+
      (((x+y)*(x-y))+((x+y)*(x-y)))+(((x+y)*(x-y))+((x+y)*(x-y))))+
     ((((x+y)*(x-y))+((x+y)*(x-y)))+(((x+y)*(x-y))+((x+y)*(x-y)))+
      (((x+y)*(x-y))+((x+y)*(x-y)))+(((x+y)*(x-y))+((x+y)*(x-y))));
  Writeln('z = ',z);
end.

Link to SVN view of test/tfpuover.pp source.