bug63197.c

Go to the documentation of this file.

// RUN: %libomp-compile-and-run | FileCheck %s
 
#include <omp.h>
#include <stdio.h>
 
/* This code tests that state pushed for the num_threads clause does not
   reach the next parallel region. omp_get_max_threads() + 1 can never
   be chosen as team size for the second parallel and could only be the
   result of some left-over state from the first parallel.
 */
 
int main(int argc, char *argv[]) {
  unsigned N = omp_get_max_threads();
#pragma omp parallel num_threads(N + 1) if (0)
#pragma omp single
  { printf("BBB %2d\n", omp_get_num_threads()); }
 
#pragma omp parallel
#pragma omp single
  {
    if (omp_get_num_threads() <= N)
      printf("PASS\n");
  }
  return 0;
}
 
// CHECK: PASS