tests/funcAttributes.R

In duncantl/RCUDA: R Bindings for the CUDA Library for GPU Computing

library(RCUDA)
cuGetContext()

f = system.file("sampleKernels", "dnorm.cubin", package = "RCUDA")
if(file.exists(f)) {
  m = loadModule(f)
  vals = RCUDA:::CUfunction_attributeValues
      # ignore the MAX entry 
  sapply(unclass(vals)[-length(vals)], cuFuncGetAttribute,  m$dnorm_kernel)

  cuFuncGetAttributes(m$dnorm_kernel)
} else
  cat("Cannot find load dnorm.cubin. No test!\n")