view libgomp/testsuite/libgomp.c/shared-3.c @ 158:494b0b89df80 default tip

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

/* { dg-do run } */

void abort (void);

int main()
{
  int x;
  int *p;

  p = &x;

  #pragma omp parallel
    {
      if (p != &x)
        abort ();
    }

  return 0;
}