Retro68/gcc/libgomp/testsuite/libgomp.hsa.c/complex-align-2.c
2017-04-10 13:32:00 +02:00

28 lines
353 B
C

#pragma omp declare target
_Complex int *g;
#pragma omp end declare target
_Complex float f(void);
int
main ()
{
_Complex int y;
#pragma omp target map(from:y)
{
_Complex int x;
g = &x;
__imag__ x = 1;
__real__ x = 2;
y = x;
}
if ((__imag__ y != 1)
|| (__real__ y != 2))
__builtin_abort ();
return 0;
}