libgomp/testsuite/libgomp.hsa.c/complex-align-2.c

   1 #pragma omp declare target
   2     _Complex int *g;
   3 #pragma omp end declare target
   4
   5
   6
   7 _Complex float f(void);
   8
   9 int
  10 main ()
  11 {
  12   _Complex int y;
  13 #pragma omp target map(from:y)
  14   {
  15     _Complex int x;
  16     g = &x;
  17     __imag__ x = 1;
  18     __real__ x = 2;
  19     y = x;
  20   }
  21
  22   if ((__imag__ y != 1)
  23       || (__real__ y != 2))
  24     __builtin_abort ();
  25   return 0;
  26 }
  27