t_id
962
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/05/21 01:10:00 32 | 2024/05/21 01:56:00 0 | |
| i386 | 30 | 60.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:55:00 0 | |
| x86_64 | 19 | 38.0 | 2024/05/21 01:28:00 26 | 2024/05/21 01:56:00 0 | |
| aarch64 | 1 | 2.0 | 2024/05/21 01:46:00 38 | 2024/05/21 01:46:00 38 | |
| linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 0 | |
| 3.3.1 | 28 | 56.0 | 2024/05/21 01:25:00 37 | 2024/05/21 01:56:00 0 | |
| 3.2.3 | 22 | 44.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 0 |
{ Source provided for Free Pascal Bug Report 2494 }
{ Submitted by "Alan Mead" on 2003-05-17 }
{ e-mail: cubrewer@yahoo.com }
program dummy;
type
matrix_element = array[1..1] of byte;
big_matrix = array[1..1000000,1..610] of matrix_element;
longarray = array[0..0] of real;
{var
a : big_matrix;}
var p:pointer;
l : ^longarray;
size, storage : longint;
i,j:longint;
done:boolean;
begin
ReturnNilIfGrowHeapFails:=true;
writeln('Total heap available is ',MemAvail,' bytes');
writeln('Largest block available is ',MaxAvail,' bytes');
done := false;
size := 40000000;
repeat
size := round(size * 1.1);
storage := size * sizeof(real);
writeln('size=',size,' (storage=',storage,')');
getmem(l,storage);
if (l=nil) then
begin
done := true;
writeln('getmem() failed');
end
else
begin
writeln('getmem() was successful');
freemem(l,storage);
end;
until (done);
end.