fpc/tests/webtbs/tw2280.pp

{ %version=1.1 }
{ Source provided for Free Pascal Bug Report 2280 }
{ Submitted by "Yakov Sudeikin" on  2002-12-23 }
{ e-mail: [email protected] }
var
 a: array of string;

begin
 a := nil;
 if a = nil then;
end.