path: root/tests/webtbf/tw1432.pp

{ %FAIL }

procedure something;
 procedure SomethingExt (onepar:longint); external;
begin
 SomethingExt (1);
end;

begin
end.