{ Source provided for Free Pascal Bug Report 2771 }
{ Submitted by "Michalis Kamburelis" on  2003-11-08 }
{ e-mail: michalis@camelot.homedns.org }
{$macro on}

{$define MAC:=procedure P}

MAC; begin end;

begin
end.