testlist <- list(j = -1508699650L, tau = c(-7.94468722119957e-192, -2.74501215617461e+119, Inf, -1.33705739978223e+52, -8760.06377719786, -2.5252049595182e-121, -1.06837718720978e-238, -3.09489606277911e+160, -1.08033645741332e-215, 9.63507454931288e+109, 4.56681182651462e-133, 5.67922786459411e+233, -4.92854634956637e-122, -Inf, -2.66079700643009e-254, -2.48470379546312e-50, -1.02667942293432e-144, -Inf, 9.23868202336823e+40, 0.000949520898725849, -3.08731637728353e+112, NaN, -1.61899973498634e+157, -1.06472221824247e+197, -2.37143598278947e-151, -1.43224030271353e+223, -6.47298355549194e+297, 8.79207039364608e-290, 5.05428582509817e-185, 1.42619532622387e+255, 4.06520870364012e+88, 1.74952555559125e-35, -1.47208802780462e+208, -1.46488279522302e+129, -2.80433985942557e-268, -1.6282611584375e-53, 7.73950809493089e-61, 2.48283942862035e+182, -1.6280660879322e+230, 8.86841065223407e+198, -3.67489403218882e+25, -5.49741763127972e-104, 2.63315982720587e+149, 7.06067117249361e-83, -1.54827620059269e-285, -4.62449135301377e-237, 0), x = -578018774L, y = -1010328626L) result <- do.call(timma:::maxcpp,testlist) str(result)