#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; | |
} | |