1// RUN: %libomp-compile-and-run | FileCheck %s
2
3#include <omp.h>
4#include <stdio.h>
5
6int main(int argc, char *argv[]) {
7#pragma omp parallel num_threads(3) if (0)
8#pragma omp single
9 { printf(format: "BBB %2d\n", omp_get_num_threads()); }
10
11#pragma omp parallel
12#pragma omp single
13 {
14 if (omp_get_num_threads() != 3)
15 printf(format: "PASS\n");
16 }
17 return 0;
18}
19
20// CHECK: PASS
21

source code of openmp/runtime/test/parallel/bug63197.c