blob: 01509f8b1ca4ef332d0822d4a44c8cdfa987aeef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Old file: tbs0006.pp }
{ tests the wrong floating point code generation OK 0.9.2 }
uses
erroru;
var
a,b,c,d,e,f,g,r : double;
begin
a:=10.0;
b:=11.0;
c:=13.0;
d:=17.0;
e:=19.0;
f:=23.0;
g:=0.0;
r:=2.0;
a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
writeln(a,' (must be -1010)');
if a<>-1010.0 then
Error;
end.
|
