Needs["CUDALink`"]

SymbolicCUDAFunction[ "symbolic_"<>ToString[#],{{CPointerType[#], x},{int, i}},
CBlock[{
SymbolicCUDADeclareIndexBlock[1],
CAssign[AddTo,CArray[x,index],CCast[#,2]]
}]]&/@{char,uchar,int,short,float,double} //ToCCodeString