Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/pr92877-1.c
2023-03-06 14:48:14 +01:00

20 lines
326 B
C

/* Make sure that we can resolve back via 'acc_hostptr' an 'acc_deviceptr'
retrieved for a structured mapping. */
#include <assert.h>
#include <openacc.h>
int
main ()
{
int var;
#pragma acc data create (var)
{
void *var_p_d = acc_deviceptr (&var);
assert (acc_hostptr (var_p_d) == &var);
}
return 0;
}