t_id
1554
t_adddate
2005/04/13
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/17 20:46:00 105 | 2024/05/18 00:10:00 29 | |
| i386 | 24 | 48.0 | 2024/05/17 22:07:00 21 | 2024/05/18 00:07:00 24 | |
| sparc | 20 | 40.0 | 2024/05/17 23:24:00 38 | 2024/05/17 23:55:00 41 | |
| powerpc | 1 | 2.0 | 2024/05/17 21:13:00 42 | 2024/05/17 21:13:00 42 | |
| x86_64 | 3 | 6.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:10:00 29 | |
| powerpc64 | 2 | 4.0 | 2024/05/17 20:46:00 105 | 2024/05/17 20:49:00 112 | |
| linux | 9 | 18.0 | 2024/05/17 20:46:00 105 | 2024/05/18 00:07:00 24 | |
| win32 | 6 | 12.0 | 2024/05/17 22:07:00 21 | 2024/05/17 23:54:00 25 | |
| solaris | 35 | 70.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:10:00 29 | |
| 3.3.1 | 33 | 66.0 | 2024/05/17 20:46:00 105 | 2024/05/17 23:59:00 30 | |
| 3.2.3 | 17 | 34.0 | 2024/05/17 23:24:00 38 | 2024/05/18 00:10:00 29 |
{ Source provided for Free Pascal Bug Report 3833 }
{ Submitted by "Joost vd Sluis" on 2005-03-26 }
{ e-mail: }
uses
variants,sysutils;
var v1,v2 : variant;
begin
v1 := 255;
v2 := 255 + v1;
if v2<>2*255 then
begin
writeln(v2);
halt(1);
end;
v1 := '256';
v2 := 'Hello:' + v1;
if v2<>'Hello:256' then
begin
writeln(v2);
halt(1);
end;
v1 := 255.0;
v2 := 255.0 + v1;
if v2<>2*255 then
begin
writeln(v2);
halt(1);
end;
writeln('ok');
end.