* new bug

This commit is contained in:
peter 2003-11-12 16:37:29 +00:00
parent 1af574ceca
commit 1a3d62baa3

11
tests/webtbs/tw2771.pp Normal file
View File

@ -0,0 +1,11 @@
{ 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.