]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gcc.dg/gomp/appendix-a/a.37.2.c
[multiple changes]
[thirdparty/gcc.git] / gcc / testsuite / gcc.dg / gomp / appendix-a / a.37.2.c
1 /* { dg-do compile } */
2
3 extern int omp_get_thread_num (void);
4 void work (int i);
5 void
6 correct ()
7 {
8 int i;
9 #pragma omp parallel private(i)
10 {
11 i = omp_get_thread_num ();
12 work (i);
13 }
14 }