@@ -0,0 +1,12 @@
+{ %fail }
+
+{$macro on}
+{$define extcall:=extcall}
+procedure p;extcall;
+begin
+end;
+end.