Test suite results for test file webtbs/tw1720.pp

Test run data :

Test file "webtbs/tw1720.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015807.

Source:

{ Source provided for Free Pascal Bug Report 1720 }
{ Submitted by "Jesse Towner" on  2001-12-09 }
{ e-mail: jesse@gdnmail.net }
var a, b, c : single;
begin
    (* ... other floating point code goes here *)

    a := 5.6;
    b := 3.4;
    b:= b + sqrt(b)- ln(a);

    c := a - (b-(b-1));

    if abs(c-(a-1))>0.01 then
      begin
        Writeln('Error in floating point code');
        halt(1);
      end;
    (* sometimes, depending on the previous code,
       the code generator will chose to swap the
       operands. however, it just calls the
       reverse version of the instruction without
       swapping the operands. this results in
       giving a value of (b-a) or -2.2 for c. the
       same goes for floating point division. *)
end.

Link to SVN view of webtbs/tw1720.pp source.