Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/c-c++-common/goacc/nesting-data-1.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
void f (void) { unsigned char c, ca[15], caa[20][30]; #pragma acc data copyin(c) { c = 5; ca[3] = c; caa[3][12] = ca[3] + caa[3][12]; #pragma acc data copyin(ca[2:4]) { c = 6; ca[4] = c; caa[3][12] = ca[3] + caa[3][12]; } #pragma acc parallel copyout(ca[3:4]) { c = 7; ca[5] = c; caa[3][12] = ca[3] + caa[3][12]; } #pragma acc kernels copy(ca[4:4]) { c = 8; ca[6] = c; caa[3][12] = ca[3] + caa[3][12]; } #pragma acc data pcopy(ca[5:7]) { c = 15; ca[7] = c; caa[3][12] = ca[3] + caa[3][12]; #pragma acc data pcopyin(caa[3:7][0:30]) { c = 16; ca[8] = c; caa[3][12] = ca[3] + caa[3][12]; } #pragma acc parallel pcopyout(caa[3:7][0:30]) { c = 17; ca[9] = c; caa[3][12] = ca[3] + caa[3][12]; } #pragma acc kernels pcopy(caa[3:7][0:30]) { c = 18; ca[10] = c; caa[3][12] = ca[3] + caa[3][12]; } } } }