with Test_PentDobl_Functions;

procedure ts_pdfun is

-- DESCRIPTION :
--   Calls the main interactive test on functions in penta double precision.

begin
  Test_PentDobl_Functions.Main;
end ts_pdfun;
