@@ -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.
peter