view libgomp/testsuite/libgomp.c/target-36.c @ 158:494b0b89df80 default tip

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

int
main ()
{
  int ah, bh, n = 1024;
#pragma omp target map(from: ah, bh)
  {
    int a, b;
#pragma omp simd lastprivate(b)
    for (a = 0; a < n; a++)
      {
	b = a + n + 1;
	asm volatile ("" : "+r"(b));
      }
    ah = a, bh = b;
  }
  if (ah != n || bh != 2 * n)
    __builtin_abort ();
}