* new bug

tests/webtbs/tw2771.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 2771 }
+{ Submitted by "Michalis Kamburelis" on  2003-11-08 }
+{ e-mail: [email protected] }
+{$macro on}
+
+{$define MAC:=procedure P}
+
+MAC; begin end;
+
+begin
+end.