mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 20:59:26 +02:00
583c9a3360
on the JVM target because empty dynarrays are not always nil there git-svn-id: branches/jvmbackend@19154 -
17 lines
242 B
ObjectPascal
17 lines
242 B
ObjectPascal
program tdynarrnil;
|
|
|
|
var
|
|
arr: array of longint;
|
|
begin
|
|
setlength(arr,0);
|
|
if assigned(arr) then
|
|
halt(1);
|
|
if arr<>nil then
|
|
halt(2);
|
|
setlength(arr,1);
|
|
if not assigned(arr) then
|
|
halt(3);
|
|
if arr=nil then
|
|
halt(4);
|
|
end.
|