testlist <- list(L = structure(c(3.60908643865453e+224, 1.11742128101669e+83, 1.97870122171185e+143, NaN, 9.37480792170664e+280, 3.07504141416437e-136, 1.01645313737868e-124, 1.00679150745081e-73, 1.27047634996911e-62, 2.13409614918679e-145, 2.01768927817267e+47, NaN, 4.713762584588e-48, 1.7506159598139e-260, 4.13272931804741e+261, 7.50347923086546e-71, NaN, 2.90402077461892e-286, 3.56215199780015e-230, 1.43677827629537e-133, 7.46114516421967e-258, 5.0141334820982e+184, NaN, 29072.6257709098, 1.41003229091807e-86, 1.93643921836204e+180, 1.99326012973524e-62, 1.39815628510302e-16), .Dim = c(4L, 7L)), v = c(-1.48913015309838e+39, 2.63725453740933e+261, 4.51945682641686e+163, -7.62766352772688e-53, 2.09617024723214e+257, -4.68831427091371e-154, 1.11903477574716e+232, 3.26286409658457e-84, 3.96692931002303e-30, 1.30945164738812e+193, 2.81167291417672e+284, 7.81344866205955e-69, 8.06437782716787e-68, -2.43432862423038e-282, -8.66082579829582e-93, -4.44116795166925e-236, 8.79838796864221e-85, 1.18757307056025e+27, -1.93958723679818e+293, -1.4797859307384e+74, 1.0829478318779e-20, 3.18894353286941e-291, 1.89411227126564e+44, -3.25228381230693e-308, 4.16222053993285e+189, -3.47187673951786e+104, -9.61683738769097e+161, 9.71804279585044e-239, -Inf, 2.17299108064979e+107, 2.26895126666313e+150, -8.40097381850818e+307, 1.13760189546125e+200, -2.04311773710004e-81, -5.96231150102709e+47, -3.45018564135406e-87, 1.87350069967456e-225, 1.78742032507512e+27, 1.5457560660078e-223, 3.9114491893228e-103, 4.75074045149166e+44, 2.03194847659285e-141, -2.91324326516138e+212, 1.20155833324313e+91, -2.30373608285758e-256, 7.8916857411679e-125, -1.33791239970731e+107, -1.0992233037189e-83, -8.48368816965793e-131, -3.27398714521823e+63, -3.38410933449517e-93, -4.03376812105127e+85, NaN, -6.783456706827e+233, NA, 6.88318444663651e+174, -2.75811974752553e-154, 1.66811523321678e-190, -1225456.09007819, -6.72853033935425e+227, -1.29886619450838e-120, 3.20339905305954e+244, -1.21482693215067e+115, 2.43581014863413e-09, -1.64267229240635e+77, 1.69376167176247e-180, -2.96113780540984e+227, 8.68343785112204e-195, 1.0935372876868e-207, 8.82812941134646e-118, 1.0935372876868e-207, 1.35097132339656e+180, 0)) result <- do.call(Benchmarking:::chol_update,testlist) str(result)