freepascal.compiler/tests/tbf/tb0143.pp

{ %version=1.1 }
{ %fail }

{$macro on}

{$define extcall:=extcall}

procedure p;extcall;
begin
end;

begin
end.