t_id
43
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 0 | |
| i386 | 21 | 42.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 0 | |
| x86_64 | 27 | 54.0 | 2024/05/21 01:43:00 15 | 2024/05/21 02:14:00 0 | |
| aarch64 | 2 | 4.0 | 2024/05/21 01:46:00 38 | 2024/05/21 02:03:00 35 | |
| linux | 49 | 98.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 0 | |
| win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
| 3.3.1 | 34 | 68.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 0 | |
| 3.2.3 | 16 | 32.0 | 2024/05/21 01:42:00 33 | 2024/05/21 02:13:00 35 |
{$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.