gcc/gcc/testsuite/gcc.dg/gomp/appendix-a/a.37.1.c

14 lines
248 B
C

/* { dg-do compile } */
extern int omp_get_num_threads (void);
void work (int i);
void
incorrect ()
{
int np, i;
np = omp_get_num_threads (); /* misplaced */
#pragma omp parallel for schedule(static)
for (i = 0; i < np; i++)
work (i);
}