libgomp/testsuite/libgomp.c/shared-3.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

/* { dg-do run } */

void abort (void);

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

  p = &x;

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

  return 0;
}