tests2/if5.R

In duncantl/R2llvm: LLVM-based compiler for R code

library(R2llvm)
f =
function(x)
{
   if(x > 10L) {
      a = x + 1L
      z = a + 20L
   } else {
      z = 1L
   }
   return(z)
}

library(RTypeInference)
cfg = rstatic::to_cfg(f)#, ssa = FALSE)
types = RTypeInference::infer_types(cfg, init = list(x = typesys::IntegerType()))

fc = compileFunction(f, cfg = cfg, types = types)
stopifnot(identical(.llvm(fc, 100), 121L))
stopifnot(identical(.llvm(fc, 10), 1L))