blob: 6f66ca589a5253c47863f9af38aad1d70593c274 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ Source provided for Free Pascal Bug Report 3023 }
{ Submitted by "Michael" on 2004-03-23 }
{ e-mail: Michael.VanCanneyt@wisa.be }
{$mode objfpc}
program testa;
Var
A : Array of Integer;
begin
If Not Assigned(A) then
halt(0)
else
halt(1);
end.
|
