|
|
@@ -0,0 +1,16 @@
|
|
|
+{ Source provided for Free Pascal Bug Report 3023 }
|
|
|
+{ Submitted by "Michael" on 2004-03-23 }
|
|
|
+{ e-mail: [email protected] }
|
|
|
+{$mode objfpc}
|
|
|
+
|
|
|
+program testa;
|
|
|
+
|
|
|
+Var
|
|
|
+ A : Array of Integer;
|
|
|
+
|
|
|
+begin
|
|
|
+// Commented version does work.
|
|
|
+// If (Length(A)=0) then
|
|
|
+ If Not Assigned(A) then
|
|
|
+ Writeln('All OK');
|
|
|
+end.
|
florian