mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 12:32:25 +02:00
13 lines
227 B
ObjectPascal
13 lines
227 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2776 }
|
|
{ Submitted by "Vincent Snijders" on 2003-11-09 }
|
|
{ e-mail: vslist@zonnet.nl }
|
|
{$mode delphi}
|
|
var
|
|
a: procedure of object;
|
|
|
|
begin
|
|
a:=nil;
|
|
if assigned(a)
|
|
then ;
|
|
end.
|