testlist <- list(max_iter = 629562784L, mulog = NaN, pi = c(5.30954710677981e-211,  -1.15932363729397e-89, NA, Inf, -4.21379542971601e+301, 2.83203663736332e+202,  Inf, Inf, -8.26020627372181e+74, 3.5321403033616e+108, -6.11071228244507e+168,  0), sdlog = c(-6.71335266603528e+96, -2.3818978698713e-145, 7.67286276858916e+111,  -1.51396705818609e+72, 1.49052369795595e-63, 1.24725066063218e-62,  -3.49847686376652e-240, 2.9673437965087e+171, -1.00689157007918e+158,  -3.98990997783338e-165, -3.94020246686977e-307, 3.74757032278151e-275,  1.30751306075601e+70, NaN, -1.65434269231538e+65, 2.1029304048892e+114,  4.46491336882682e-40, 1.38879064571449e-238, -Inf, 1.33825168573423e-72,  -1.04662921913509e-82, 2.04301615783255e-36, 77159307057.5472,  -3.90829937678216e-300, -1.77811563297015e+96, -2.23308809047903e+292,  -1.02101527944628e+187, -8.16052966674203e-270, -1.77811563297015e+96,  NaN, 1.64165336288268e+254, 1.53523279691013e-201, -7.68460463381592e+259,  -2.08922049306003e-79, -1.91265118125573e-58, 0), tol = -8.57347216942974e+82,      x = c(NA, 1.59167244924055e+145, -6.59000840417184e-304,      -6.20641449340932e-183, 1.08641780660176e+122, 1.68664890759274e+63,      1.08641780660176e+122, 1.69379227972622e+189, Inf, 3.7531234503342e-282,      0))
result <- do.call(mixR:::lnorm_C,testlist)
str(result)