libgomp/testsuite/libgomp.oacc-c-c++-common/lib-89.c

   1 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
   2
   3 #include <stdio.h>
   4 #include <pthread.h>
   5 #include <string.h>
   6 #include <stdlib.h>
   7 #include <errno.h>
   8 #include <ctype.h>
   9 #include <openacc.h>
  10
  11 unsigned char **x;
  12 void **d_x;
  13 const int N = 16;
  14 const int NTHREADS = 32;
  15
  16 static void *
  17 test (void *arg)
  18 {
  19   int i;
  20   int tid;
  21   unsigned char *p;
  22   int devnum;
  23
  24   tid = (int) (long) arg;
  25
  26   devnum = acc_get_device_num (acc_device_default);
  27   acc_set_device_num (devnum, acc_device_default);
  28
  29 #if ACC_DEVICE_TYPE_nvidia
  30   if (acc_get_current_cuda_context () == NULL)
  31     abort ();
  32 #else
  33   if (acc_get_current_cuda_context () != NULL)
  34     abort ();
  35 #endif
  36
  37   p = (unsigned char *) malloc (N);
  38
  39   for (i = 0; i < N; i++)
  40     {
  41       p[i] = tid;
  42     }
  43
  44   x[tid] = p;
  45
  46   d_x[tid] = acc_copyin (p, N);
  47
  48   return 0;
  49 }
  50
  51 int
  52 main (int argc, char **argv)
  53 {
  54   int i;
  55   pthread_attr_t attr;
  56   pthread_t *tid;
  57
  58   acc_init (acc_device_default);
  59
  60   x = (unsigned char **) malloc (NTHREADS * N);
  61   d_x = (void **) malloc (NTHREADS * N);
  62
  63   if (pthread_attr_init (&attr) != 0)
  64     perror ("pthread_attr_init failed");
  65
  66   tid = (pthread_t *) malloc (NTHREADS * sizeof (pthread_t));
  67
  68   for (i = 0; i < NTHREADS; i++)
  69     {
  70       if (pthread_create (&tid[i], &attr, &test, (void *) (unsigned long) (i))
  71           != 0)
  72         perror ("pthread_create failed");
  73     }
  74
  75   if (pthread_attr_destroy (&attr) != 0)
  76     perror ("pthread_attr_destroy failed");
  77
  78   for (i = 0; i < NTHREADS; i++)
  79     {
  80       void *res;
  81
  82       if (pthread_join (tid[i], &res) != 0)
  83         perror ("pthread join failed");
  84     }
  85
  86   for (i = 0; i < NTHREADS; i++)
  87     {
  88       if (acc_is_present (x[i], N) != 1)
  89         abort ();
  90     }
  91
  92   for (i = 0; i < NTHREADS; i++)
  93     {
  94       memset (x[i], 0, N);
  95       acc_copyout (x[i], N);
  96     }
  97
  98   for (i = 0; i < NTHREADS; i++)
  99     {
 100       unsigned char *p;
 101       int j;
 102
 103       p = x[i];
 104
 105       for (j = 0; j < N; j++)
 106         {
 107           if (p[j] != i)
 108             abort ();
 109         }
 110
 111       if (acc_is_present (x[i], N) != 0)
 112         abort ();
 113     }
 114
 115   return 0;
 116 }
 117
 118 /* { dg-output "" } */