cling/test/CUDADeviceCode/CUDARegression.C
Simeon Ehrig be5ea3a651 Fixed CUDA mode for Clang/LLVM 9 upgrade
- fix bug, which was caused by executing a transaction in the device
interpreter
- fixed warning from the device compiler
- update test cases
2021-02-25 20:44:19 +01:00

63 lines
2.0 KiB
C

//------------------------------------------------------------------------------
// CLING - the C++ LLVM-based InterpreterG :)
// author: Simeon Ehrig <s.ehrig@hzdr.de>
//
// This file is dual-licensed: you can choose to license it under the University
// of Illinois Open Source License or the GNU Lesser General Public License. See
// LICENSE.TXT for details.
//------------------------------------------------------------------------------
// The test checks if the interface functions process(), declare() and parse()
// of cling::Interpreter also work in the cuda mode.
// RUN: cat %s | %cling -DTEST_PATH="\"%/p/\"" -x cuda --cuda-path=%cudapath %cudasmlevel -Xclang -verify 2>&1 | FileCheck %s
// REQUIRES: cuda-runtime
#include "cling/Interpreter/Interpreter.h"
// if process() works, the general input also works
gCling->process("cudaGetLastError()");
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
// declare a cuda kernel with with a define
// do not this in real code ;-)
gCling->declare("#define FOO 42");
gCling->declare("__global__ void g1(int * out){ *out = FOO;}");
// allocate memory on CPU and GPU
int *d1;
int h1 = 0;
cudaMalloc((void**)&d1, sizeof(int))
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
// run kernel
g1<<<1,1>>>(d1);
cudaGetLastError()
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
// check result
cudaMemcpy(&h1, d1, sizeof(int), cudaMemcpyDeviceToHost)
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
h1
//CHECK: (int) 42
// same test as declare()
// reuse memory
// FIXME: at the moment there is no check whether the device compiler generates
// code or not
// to fix the problem, cling needs a debug interface for the device compiler
gCling->parse("__global__ void g2(int * out){ *out = 52;}");
g2<<<1,1>>>(d1);
cudaGetLastError()
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
cudaMemcpy(&h1, d1, sizeof(int), cudaMemcpyDeviceToHost)
//CHECK: (cudaError_t) (cudaSuccess) : (unsigned int) 0
h1
//CHECK: (int) 52
cudaFree(d1)
// expected-no-diagnostics
.q