t_id
1317
t_adddate
2004/07/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:22:00 34 | 2024/05/21 02:53:00 0 | |
i386 | 12 | 24.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:38:00 25 | |
x86_64 | 33 | 66.0 | 2024/05/21 01:33:00 15 | 2024/05/21 02:53:00 0 | |
aarch64 | 5 | 10.0 | 2024/05/21 01:42:00 32 | 2024/05/21 02:52:00 0 | |
linux | 50 | 100.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:53:00 0 | |
3.3.1 | 29 | 58.0 | 2024/05/21 01:33:00 15 | 2024/05/21 02:53:00 0 | |
3.2.3 | 21 | 42.0 | 2024/05/21 01:22:00 34 | 2024/05/21 02:51:00 0 |
{ Source provided for Free Pascal Bug Report 3197 } { Submitted by "Martin Schreiber" on 2004-07-03 } { e-mail: } {$ifdef fpc}{$mode objfpc}{$H+}{$endif} uses Classes, SysUtils; type ttestclass = class public teststring: ansistring; procedure test(const astring: ansistring); end; { ttestclass } procedure ttestclass.test(const astring: ansistring); begin teststring:= astring; end; var testclass: ttestclass; begin testclass:= ttestclass.create; testclass.teststring:= 'abc'; testclass.teststring:= testclass.teststring + '123'; //refcount 1 testclass.test(testclass.teststring); if testclass.teststring = 'abc123' then begin writeln('ok'); end else begin writeln('error'); halt(1); end; testclass.free; end.