testlist <- list(tau = c(-7.91591846396973e+240, -1.92948360402972e+118,  Inf, -6.60613635207856e+120, -1.5021184435096e+100, 4.754089235734e+144,  8.47811204676303e+229, 6.62657362878212e+207, 4.07115006766123e-192,  -4.36809182173609e-78, Inf, 1.84499370230106e+37, -9.96541450273877e-297,  3.90189315937573e-105, NA, Inf), x = 1002982824L, y = -6408216L)
result <- do.call(timma:::mincpp1,testlist)
str(result)