view libgomp/testsuite/libgomp.c/pr86660.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 84e7813d76e9
children
line wrap: on
line source

/* PR middle-end/86660 */

#pragma omp declare target
int v[20];

void
foo (void)
{
  if (v[7] != 2)
    __builtin_abort ();
  v[7] = 1;
}
#pragma omp end declare target

int
main ()
{
  v[5] = 8;
  v[7] = 2;
  #pragma omp target map (always, tofrom: v)
  {
    foo ();
    v[5] = 3;
  }
  if (v[7] != 1 || v[5] != 3)
    __builtin_abort ();
  return 0;
}