t_id
1387
t_adddate
2004/11/01
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/16 22:44:00 31 | 2024/05/17 01:13:00 28 | |
| i386 | 22 | 44.0 | 2024/05/16 22:58:00 34 | 2024/05/17 01:13:00 28 | |
| sparc | 18 | 36.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
| x86_64 | 6 | 12.0 | 2024/05/16 22:44:00 31 | 2024/05/17 00:51:00 23 | |
| powerpc64 | 2 | 4.0 | 2024/05/17 01:09:00 101 | 2024/05/17 01:11:00 108 | |
| aarch64 | 2 | 4.0 | 2024/05/17 00:12:00 32 | 2024/05/17 00:57:00 36 | |
| linux | 11 | 22.0 | 2024/05/16 23:34:00 28 | 2024/05/17 01:13:00 28 | |
| win32 | 3 | 6.0 | 2024/05/16 22:58:00 34 | 2024/05/16 23:57:00 23 | |
| solaris | 34 | 68.0 | 2024/05/16 22:44:00 31 | 2024/05/16 23:55:00 41 | |
| win64 | 2 | 4.0 | 2024/05/17 00:25:00 23 | 2024/05/17 00:51:00 23 | |
| 3.3.1 | 31 | 62.0 | 2024/05/16 22:58:00 34 | 2024/05/17 01:13:00 28 | |
| 3.2.3 | 19 | 38.0 | 2024/05/16 22:44:00 31 | 2024/05/17 00:57:00 35 |
{ Source provided for Free Pascal Bug Report 3334 }
{ Submitted by "Martin Schreiber" on 2004-09-28 }
{ e-mail: }
program project1;
{$mode objfpc}{$H+}
uses
Classes;
procedure p1;
type
integerarty = array of integer;
var
ar1,ar2: integerarty;
begin
setlength(ar1,4);
ar2:= copy(ar1,1,2);
end;
var
mem1,mem2 : longint;
begin
mem1:=heapsize-memavail;
p1;
mem2:=heapsize-memavail;
writeln(mem1,' - ',mem2);
if mem1<>mem2 then
halt(1);
end.