testlist <- list(lam = 4.15454350617324e+279, n = 467495432L, y = c(2.17590117142795e+276,  8.2390922993911e+275, -6.77057093032206e-186, 0.0289361653552965,  -1.92492083628035e+220, -7.76051978028587e-203, -1.44818187232901e-217,  -2.10158953559423e+110, -6.65583173352777e-306, -3.48837154300591e-09,  -1.5015306445219e+251, 1.57867353826414e-307, -7.00761512539766e-50,  -6.99565969036477e-60, 2.58197152657597e-253, -2.63239445434045e-196,  9.32252129454598e-200, 1.66711597576406e-146, 2.48670270489439e+34,  4.3931873228552e-139, -1.36007385895426e+107, 2.86378878410093e-96,  3.02277514595584e-165, 1.34862341910678e-57, 5.86821976171958e+165,  -4.9114353478362e+258, -5.33604860303003e+203, -6.88846063823225e+106,  -3.43788037282818e-268, 8.94805234466781e+170, -2.04429918857198e-36,  -6.03987276349896e-114, 2.6072267553008e+99, -6.29778110287011e-66,  3.91790302280202e+115, 3.92709790932095e+276, -3.86193427285116e+221,  3.59913256350067e-219, -3.45053132888275e+232, -6.25833835767484e-147,  -2.16548722951424e+140, -8.58505054174815e-232, 99582634998012.8,  -3.71023707051442e-280, 1740895450483202, 1.10419764355453e+143,  3.36904477212784e+294, 1.11438778586174e+215, -2.48153615512573e-22,  3.10688610123256e-226, 1.11179156437827e-242, 1.54020295006986e-307,  1.41399591567299e-40, 1.08823699762272e+193, 1.97657504922192e+77,  -2.08851722954428e-34, -2.01993546991465e+299, -9.49379129257654e-217,  -1.21175795212369e+39, -1.26113108054918e-09, -5.55918137471542e+60,  1.06124528594843e+36, -1.76145605260367e+294, 1.06706071009062e-60 ))
result <- do.call(flam:::tf_dp,testlist)
str(result)