Retro68/gcc/libgomp/testsuite/libgomp.oacc-c++/pr71959.C
Wolfgang Thaller 6fbf4226da gcc-9.1
2019-06-20 20:10:10 +02: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;
}