Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/structured-dynamic-lifetimes-4.c @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
/* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */ #include <openacc.h> #include <assert.h> #include <stdlib.h> #define SIZE 1024 int main (int argc, char *argv[]) { char *block1 = (char *) malloc (SIZE); char *block2 = (char *) malloc (SIZE); char *block3 = (char *) malloc (SIZE); /* Doing this twice ensures that we have a non-zero virtual refcount. Make sure that works too. */ #ifdef OPENACC_API acc_copyin (block1, SIZE); acc_copyin (block1, SIZE); #else #pragma acc enter data copyin(block1[0:SIZE]) #pragma acc enter data copyin(block1[0:SIZE]) #endif #pragma acc data copy(block1[0:SIZE], block2[0:SIZE], block3[0:SIZE]) { /* The first copyin of block2 is the enclosing data region. This "enter data" should make it live beyond the end of this region. */ #ifdef OPENACC_API acc_copyin (block2, SIZE); #else #pragma acc enter data copyin(block2[0:SIZE]) #endif } assert (acc_is_present (block1, SIZE)); assert (acc_is_present (block2, SIZE)); assert (!acc_is_present (block3, SIZE)); #ifdef OPENACC_API acc_copyout (block1, SIZE); assert (acc_is_present (block1, SIZE)); acc_copyout (block1, SIZE); assert (!acc_is_present (block1, SIZE)); acc_copyout (block2, SIZE); assert (!acc_is_present (block2, SIZE)); #else #pragma acc exit data copyout(block1[0:SIZE]) assert (acc_is_present (block1, SIZE)); #pragma acc exit data copyout(block1[0:SIZE]) assert (!acc_is_present (block1, SIZE)); #pragma acc exit data copyout(block2[0:SIZE]) assert (!acc_is_present (block2, SIZE)); #endif free (block1); free (block2); free (block3); return 0; }