Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/deviceptr-1.c @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
#include <stdlib.h> int main (void) { void *a, *a_1, *a_2; #define A (void *) 0x123 a = A; #pragma acc data copyout (a_1, a_2) #pragma acc kernels deviceptr (a) { a_1 = a; a_2 = &a; } if (a != A) abort (); if (a_1 != a) abort (); #if ACC_MEM_SHARED if (a_2 != &a) abort (); #else if (a_2 == &a) abort (); #endif a_1 = a_2 = 0; #pragma acc data deviceptr (a) #pragma acc parallel copyout (a_1, a_2) { a_1 = a; a_2 = &a; } if (a != A) abort (); if (a_1 != a) abort (); #if ACC_MEM_SHARED if (a_2 != &a) abort (); #else if (a_2 == &a) abort (); #endif return 0; }