t_id
837
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/06/02 01:33:00 35 | 2024/06/02 02:35:00 0 | |
i386 | 15 | 30.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:34:00 0 | |
sparc | 1 | 2.0 | 2024/06/02 02:33:00 0 | 2024/06/02 02:33:00 0 | |
x86_64 | 32 | 64.0 | 2024/06/02 01:34:00 16 | 2024/06/02 02:35:00 0 | |
aarch64 | 2 | 4.0 | 2024/06/02 02:17:00 38 | 2024/06/02 02:19:00 41 | |
linux | 49 | 98.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:35:00 0 | |
solaris | 1 | 2.0 | 2024/06/02 02:33:00 0 | 2024/06/02 02:33:00 0 | |
3.3.1 | 28 | 56.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:35:00 0 | |
3.2.3 | 22 | 44.0 | 2024/06/02 01:38:00 27 | 2024/06/02 02:34:00 0 |
{ Source provided for Free Pascal Bug Report 1677 } { Submitted by "Anders Lindeberg" on 2001-11-10 } { e-mail: anders.lindeberg@telia.com } program test; type trec = record i:integer; s:ansistring end; procedure p1(const r:trec); begin end; procedure p2(r:trec); begin end; procedure p3(const a:ansistring); begin end; procedure p4(a:ansistring); begin end; var r:trec; s:ansistring; begin s:=chr(ord('A')+random(26)); r.s:=s; writeln('init'); if plongint(pointer(s)-4)^<>3 then halt(1); writeln('p1()'); p1(r); if plongint(pointer(s)-4)^<>3 then halt(1); writeln('p2()'); p2(r); if plongint(pointer(s)-4)^<>3 then halt(1); writeln('ok'); end.