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

30 lines
267 B
C

#include <stdlib.h>
template<class T>
T foo()
{
T a, b;
#pragma acc declare create (a)
#pragma acc parallel copyout (b)
{
a = 5;
b = a;
}
return b;
}
int
main (void)
{
int rc;
rc = foo<int>();
if (rc != 5)
abort ();
return 0;
}