2 // Test several constructs within a parallel. At one point in development,
3 // the critical directive clobbered the shared clause of the parallel.
16 #pragma omp parallel shared (A, nthreads)
19 nthreads = omp_get_num_threads ();
22 for (i = 0; i < N; i++)
26 for (i = 0; i < N; i++)
30 for (i = 0; i < N; i++)