mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 09:50:15 +01: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.
|