blob: 69de617979776ef1ac3dd88fe95d200d5a00499a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %fail }
{ Source provided for Free Pascal Bug Report 2996 }
{ Submitted by "Michalis Kamburelis" on 2004-02-29 }
{ e-mail: michalis@camelot.homedns.org }
{$mode DELPHI}
type
TSomeProc = procedure(i:Integer);
var P:TSomeProc;
begin
if P = nil then ;
end.
|