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

32 lines
492 B
C

// { dg-additional-sources "pr71959-aux.cc" }
// PR lto/71959 ICEd LTO due to mismatch between writing & reading behaviour
struct Iter
{
int *cursor;
Iter(int *cursor_) : cursor(cursor_) {}
int *point() const { return cursor; }
};
#pragma acc routine seq
int one () { return 1; }
struct Apply
{
static void apply (int (*fn)(), Iter out)
{ *out.point() = fn (); }
};
int main ()
{
int x;
#pragma acc parallel copyout(x)
Apply::apply (one, Iter (&x));
return x != 1;
}