summaryrefslogtreecommitdiff
path: root/libgomp/testsuite/libgomp.hsa.c/complex-1.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgomp/testsuite/libgomp.hsa.c/complex-1.c')
-rw-r--r--libgomp/testsuite/libgomp.hsa.c/complex-1.c65
1 files changed, 0 insertions, 65 deletions
diff --git a/libgomp/testsuite/libgomp.hsa.c/complex-1.c b/libgomp/testsuite/libgomp.hsa.c/complex-1.c
deleted file mode 100644
index 438c64a1593..00000000000
--- a/libgomp/testsuite/libgomp.hsa.c/complex-1.c
+++ /dev/null
@@ -1,65 +0,0 @@
-#include <assert.h>
-#include <complex.h>
-#include <math.h>
-
-#define uchar unsigned char
-#define C 123
-
-#define TEST(type) \
- type foo_##type (void) \
- { \
- _Complex type a = C + 45I; \
- return __real__ a; \
- }
-
-#pragma omp declare target
-TEST (char)
-TEST (uchar)
-TEST (short)
-TEST (int)
-
-float
-bar (float a, float b)
-{
- _Complex float c = a + b * I;
-
- c += 11.f + 12.f * I;
-
- _Complex float d = 2.f + 4.44f * I;
-
- return __real__(crealf (c + d) + cimag (d) * I);
-}
-
-#pragma omp end declare target
-
-int
-main (void)
-{
- int v = 0;
- float v2 = 0.0f;
-
-#pragma omp target map(to: v)
- v = foo_char ();
-
- assert (v == C);
-
-#pragma omp target map(to: v)
- v = foo_uchar ();
-
- assert (v == C);
-
-#pragma omp target map(to: v)
- v = foo_short ();
-
- assert (v == C);
-
-#pragma omp target map(to: v)
- v = foo_int ();
-
- assert (v == C);
-
-#pragma omp target map(to: v2)
- v2 = bar (1.12f, 4.44f);
-
- assert (fabs (v2 - 14.12) < 0.0001f);
-}