freepascal.compiler/tests/webtbf/tw2996.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 2996 }
{ Submitted by "Michalis Kamburelis" on  2004-02-29 }
{ e-mail: [email protected] }
{$mode DELPHI}

type
  TSomeProc = procedure(i:Integer);

var P:TSomeProc;
begin
 if P = nil then ;
end.