blob: d2dfe3a7f3cbacca89040808cee575c7bd5d3072 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %opt=-gh }
{$mode objfpc}
program DynArrBug;
uses Types;
function GetDynArray: TStringDynArray;
begin
SetLength( GetDynArray, 16 );
end;
var
darr: array[1..1] of TStringDynArray;
begin
keepreleased:=true;
darr[1] := GetDynArray();
Finalize( darr[1] );
if pointer(darr[1])<>nil then
halt(1);
darr[1] := GetDynArray();
end.
|
