testlist <- list(a = c(-1413938675L, -1439477431L, 977323238L, 526950716L,  -810793913L, -1892612208L, 1982345207L, -2006091981L, 645480913L,  -1399711001L, -757150222L, 1198403094L, 460479914L, -1536935398L,  -1922494187L, -678934019L, 42651310L, 485070318L, -949821426L,  -787536660L, -2122148315L, -422559885L, -2124398977L, -640545061L,  1558022776L, -971020659L, -2109236141L, 1455439831L, 1121320233L,  -1522754337L, -1926893465L, -134266285L, -590558302L, -332255378L,  2043396559L, -1946114354L, -710674566L, NA, -1186278223L, 1226245157L,  -472856625L, 49757563L, -1023522226L, -17818157L, -1810608524L,  -1465327262L, -222948548L, -854105680L, -416710423L, 549283042L,  -1129434694L), b = integer(0))
result <- do.call(padr:::round_up_core,testlist)
str(result)