t_id
1234
t_adddate
2004/01/22
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:54:00 35 | 2024/05/21 02:32:00 35 | |
i386 | 14 | 28.0 | 2024/05/21 01:58:00 33 | 2024/05/21 02:32:00 27 | |
x86_64 | 34 | 68.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
linux | 49 | 98.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 28 | 56.0 | 2024/05/21 01:56:00 16 | 2024/05/21 02:32:00 27 | |
3.2.3 | 22 | 44.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:32:00 35 |
{ Source provided for Free Pascal Bug Report 2899 } { Submitted by "Mattias Gaertner" on 2004-01-17 } { e-mail: mattias@freepascal.org } program StringCallByRef; {$ifdef fpc}{$mode objfpc}{$H+}{$endif} uses Classes, SysUtils; procedure DoSomething(const AString: string); procedure NestedProc(var Dummy: string); begin Dummy:=Dummy; // dummy statement, no change end; var s: String; begin s:=copy(AString,5,11); writeln('Before NestedProc: "',s,'"'); NestedProc(s); writeln('After NestedProc: "',s,'"'); // s is now emtpy if s<>'WhatAStrangeBug' then halt(1); end; begin DoSomething('WhatAStrangeBug'); end.