blob: d7e2ef32cd22ad292013257787f0569242deb5be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ 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.
|
