{ %fail }
library tb0184;

procedure p;local;
  begin
  end;

exports
  p;

begin
end.