libgomp/testsuite/libgomp.hsa.c/complex-1.c

   1 #include <assert.h>
   2 #include <complex.h>
   3 #include <math.h>
   4
   5 #define uchar unsigned char
   6 #define C 123
   7
   8 #define TEST(type)                                                             \
   9   type foo_##type (void)                                                       \
  10   {                                                                            \
  11     _Complex type a = C + 45I;                                                 \
  12     return __real__ a;                                                         \
  13   }
  14
  15 #pragma omp declare target
  16 TEST (char)
  17 TEST (uchar)
  18 TEST (short)
  19 TEST (int)
  20
  21 float
  22 bar (float a, float b)
  23 {
  24   _Complex float c = a + b * I;
  25
  26   c += 11.f + 12.f * I;
  27
  28   _Complex float d = 2.f + 4.44f * I;
  29
  30   return __real__(crealf (c + d) + cimag (d) * I);
  31 }
  32
  33 #pragma omp end declare target
  34
  35 int
  36 main (void)
  37 {
  38   int v = 0;
  39   float v2 = 0.0f;
  40
  41 #pragma omp target map(to: v)
  42   v = foo_char ();
  43
  44   assert (v == C);
  45
  46 #pragma omp target map(to: v)
  47   v = foo_uchar ();
  48
  49   assert (v == C);
  50
  51 #pragma omp target map(to: v)
  52   v = foo_short ();
  53
  54   assert (v == C);
  55
  56 #pragma omp target map(to: v)
  57   v = foo_int ();
  58
  59   assert (v == C);
  60
  61 #pragma omp target map(to: v2)
  62   v2 = bar (1.12f, 4.44f);
  63
  64   assert (fabs (v2 - 14.12) < 0.0001f);
  65 }