testlist <- list(freq = -9.8437346994286e+253, seed = 821132427L, x = c(-2.25878821934921e+192, -3.19341174667203e-229, 2.24803798055421e-300, 7.19620437855504e+230, 42286431385140.8, -4.255382109606e+251, 4.48955736184129e+90, 3.56216869681123e+123, 335031153.210719, -3.11488507745427e+165, -9.54076853539829e-55, -2.5203389038043e-169, -1.84170455556582e+28, 7.70229196468839e+169, -6.47644319839838e+164, -4.15001802949878e+79, -6.22383878317087e+252, -2.2509061819022e-246, 2.11962605810244e-181, -5.84557147997603e+93, -55607433916.8807, 1.39881656450505e-34, 3.3134817575267e-76, -4.75012210955485e-221, -6.4134004460283e+277, 3.40176842272409e-176, -3.18005292279519e-273, Inf, 2.52483164677171e-254, -6.68800236475218e-308, 5.17824104922205e+183, -7.44554302289095e+58, -1.57437662094656e-264, -6.68800236475218e-308, 1.68187095089562e-239, 3.09853308297335e+81, -6.68800236475218e-308, -1.72923135502476e-179, NaN, -4.30039109208393e+102, 8.40858795294427e+131, 6.2900794864541e+38, -5.87910492444955e-251, 6.84072672427091e-17, -9.1327204933319e-15, -1.43867103268648e-59, -7.5535774333943e-291, 3.78160169661925e+31, 2.94904470771644e+91, -1.14953166661935e+110, 1.33124895537335e-84, 1.95074961684311e-154, -5.84284732802866e-134, 5.92421040603299e+25, -1.38292631677911e+86, -1.13544005046901e+98, 2.1277324299504e-173, 7.28379766046941e+254, 9.7184513420089e+283, -8.99499969563213e-231, 0), y = c(-1.30147835224425e+56, NaN, -5.77756710488608e+231, 2.61907708945407e+262, 8.92007230618323e+39, -1.26647122253955, -1.22208934650051e+208, -6.66938897045002e+279, -1.13159818095474e-125, 4.99143677664478e-145, -4.73970341342298e+138, 4.29033752230482e+93, 4.12551565673212e-84, 5.68645935451708e-291, 1.90620048966597e-187, 1.05854230605951e-120, 2.1421812017609e-18, 2.19042278574207e+144, -5.17334884561532e-164, 7.29845051454288e-248, -1.06825413476587e+153, 4.02133730405156e+185, NA, 9.42563156013442e+25, -7.44198896422365e+200, 2.14897484957885e+218, 5.87581400630643e-12, -1.98905083502053e-207, 3.49393389479347e-156, -5.52527957340582e+23, 1.82727719701491e-204, 1.78743665318985e-221, -6.75061656448897e+81, 8.69353872744571e-299, -1.15293004974105e+209, Inf, NA, -5.33887105843481e-167, -8.05809377286163e+121, 6.87526391821462e-68, -1.54171696955081e+277, 1.32903122651003e+176, -4.47388497899904e+243, 9.87881160433476e+67, -3.32285643705965e+50, -2.55884579343074e-182, -3.02615639912059e-231, 1.35019601930519e+218, -8.50529370088711e-172, -2.6534029410647e+88, -1.43317723909792e+150, 8.65818538835869e-128, -7.64513907186327e+83, 1.15957901166266e-181, -5707305658772.34, -1.74271211718009e-253, 0), z = c(1.5643545038422e-227, -1.04242894958834e+246, -5.26158915190443e+278, -1.12523881443362e+170, -1.94306407062868e+108, -5.26158915190443e+278, -130928548118762, 3.3539045026629e+85, -0.0529083262278277, -4.03979437105715e-31, -8.50824400674901e+117, -7.68475480351255e+177, 1.48932842092428e+189, NaN, Inf, 1.13911001132308e-176, 1.38616928475146e+90, -2.69467782833018e+188, -5.26158915190443e+278, 9.1092260059457e-147, 1.51776120305846e-274, 5.98651517763323e-180, 0)) result <- do.call(ambient:::gen_cubic3d_c,testlist) str(result)