testlist <- list(Dm = structure(c(1.79840660983827e-234, 4.88387209949284e-130,  1.93587093697598e+260, 1.44640610024207e-24, 116.501524960364,  1.98602621642316e-27, 2.138269711321e-218, 2.86811317066985e+26,  22467545.6343678, 1.69121838274454e+260), .Dim = c(1L, 10L)),      parm = c(-Inf, NaN, Inf, -1.74036734863245e-155, 0))
result <- do.call(icensmis:::loglikA0,testlist)
str(result)