mirror of
https://github.com/autc04/Retro68.git
synced 2025-02-20 02:29:11 +00:00
32 lines
539 B
C
32 lines
539 B
C
/* Test dynamic unmapping of separate structure members. */
|
|
|
|
/* { dg-skip-if "" { *-*-* } { "-DACC_MEM_SHARED=1" } } */
|
|
|
|
#include <assert.h>
|
|
#include <openacc.h>
|
|
|
|
struct s
|
|
{
|
|
char a;
|
|
char b;
|
|
};
|
|
|
|
int main ()
|
|
{
|
|
struct s s;
|
|
|
|
#pragma acc enter data create(s.a, s.b)
|
|
|
|
assert (acc_is_present (&s.a, sizeof s.a));
|
|
assert (acc_is_present (&s.b, sizeof s.b));
|
|
|
|
acc_delete (&s.a, sizeof s.a);
|
|
acc_delete (&s.b, sizeof s.b);
|
|
|
|
assert (!acc_is_present (&s.a, sizeof s.a));
|
|
assert (!acc_is_present (&s.b, sizeof s.b));
|
|
|
|
return 0;
|
|
}
|
|
|