mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
966ebbf157
type casted to a non-refcounted type, e.g. dynarray to pointer in Delphi
mode (mantis #13820)
git-svn-id: trunk@13195 -
13 lines
179 B
ObjectPascal
13 lines
179 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
program copytest;
|
|
|
|
var
|
|
S, D : array of Integer;
|
|
|
|
begin
|
|
HaltOnNotReleased := true;
|
|
SetLength(S,4000);
|
|
D := Copy(Copy(S));
|
|
end.
|