libgomp/testsuite/libgomp.oacc-c/subr.cu

   1
   2 extern "C" __global__ void
   3 delay (clock_t * d_o, clock_t delay)
   4 {
   5   clock_t start, ticks;
   6
   7   start = clock ();
   8
   9   ticks = 0;
  10
  11   while (ticks < delay)
  12     ticks = clock () - start;
  13 }
  14
  15 extern "C" __global__ void
  16 delay2 (unsigned long *d_o, clock_t delay, unsigned long tid)
  17 {
  18   clock_t start, ticks;
  19
  20   start = clock ();
  21
  22   ticks = 0;
  23
  24   while (ticks < delay)
  25     ticks = clock () - start;
  26
  27   d_o[0] = tid;
  28 }
  29
  30 extern "C" __global__ void
  31 sum (clock_t * d_o, int N)
  32 {
  33   int i;
  34   clock_t sum;
  35   __shared__ clock_t ticks[32];
  36
  37   sum = 0;
  38
  39   for (i = threadIdx.x; i < N; i += blockDim.x)
  40     sum += d_o[i];
  41
  42   ticks[threadIdx.x] = sum;
  43
  44   syncthreads ();
  45
  46   for (i = 16; i >= 1; i >>= 1)
  47     {
  48       if (threadIdx.x < i)
  49         ticks[threadIdx.x] += ticks[threadIdx.x + i];
  50
  51       syncthreads ();
  52     }
  53
  54   d_o[0] = ticks[0];
  55 }
  56
  57 extern "C" __global__ void
  58 mult (int n, float *x, float *y)
  59 {
  60   int i = blockIdx.x * blockDim.x + threadIdx.x;
  61
  62   for (i = 0; i < n; i++)
  63     y[i] = x[i] * x[i];
  64 }