Sign in
gnu
/
gcc
/
646ce0056ed84bcc71d52cb07c61d0bf331f91c3
/
.
/
libgomp
/
testsuite
/
libgomp.c
/
thread-limit-5.c
blob: d72988dcc54b720eecb5d305f1af3b76b70bf372 [
file
] [
log
] [
blame
]
#include
<stdlib.h>
#include
<omp.h>
int
main
()
{
#pragma
omp teams thread_limit
(
1
)
#pragma
omp parallel
if
(
0
)
if
(
omp_get_thread_limit
()
!=
1
)
abort
();
return
0
;
}