mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-18 12:29:08 +00:00
66 lines
1.2 KiB
C
66 lines
1.2 KiB
C
|
#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);
|
||
|
}
|