t_id
1488
t_adddate
2005/02/06
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:10:00 32 | 2024/05/21 01:56:00 16 | |
| i386 | 30 | 60.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:55:00 26 | |
| x86_64 | 19 | 38.0 | 2024/05/21 01:28:00 26 | 2024/05/21 01:56:00 16 | |
| aarch64 | 1 | 2.0 | 2024/05/21 01:46:00 38 | 2024/05/21 01:46:00 38 | |
| linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 16 | |
| 3.3.1 | 28 | 56.0 | 2024/05/21 01:25:00 37 | 2024/05/21 01:56:00 16 | |
| 3.2.3 | 22 | 44.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 35 |
{ Source provided for Free Pascal Bug Report 3533 }
{ Submitted by "Vasily Volchenko" on 2005-01-08 }
{ e-mail: Vasily.Volchenko@mstu.edu.ru }
program Bug;
{x$mode objfpc}{x$H+}
//Local function bug
uses
Classes,Math,SysUtils;
procedure p1;
var tc,t0:double;
s1,s2,s3 : string;
function Theta(x:double):double;
begin
{Result}Theta:=(x-tc)/(t0-tc);
end;
begin
tc:=0;t0:=20;
str(theta(20),s1);
str(theta(2),s2);
str(theta(20)-theta(2),s3);
writeln(s1,' ',s2,' ',s3);
if (s1<>' 1.000000000000000E+000') or
(s2<>' 1.000000000000000E-001') or
(s3<>'-9.000000000000000E-001') then
halt(1);
end;
begin
p1;
end.