mirror of git://gcc.gnu.org/git/gcc.git
27 lines
416 B
C
27 lines
416 B
C
#include <omp.h>
|
|
|
|
int
|
|
main ()
|
|
{
|
|
int i;
|
|
int level = -1;
|
|
|
|
#pragma omp target map(tofrom : level)
|
|
{
|
|
level = omp_get_level ();
|
|
}
|
|
|
|
if (level != 0)
|
|
__builtin_abort ();
|
|
|
|
#pragma omp target teams map(tofrom : level)
|
|
#pragma omp distribute parallel for default(none) private(i) shared(level)
|
|
for (i = 0; i < 1; ++i)
|
|
level += omp_get_level ();
|
|
|
|
if (level != 1)
|
|
__builtin_abort ();
|
|
|
|
return 0;
|
|
}
|