Retro68/gcc/libgomp/testsuite/libgomp.c/target-3.c
2014-09-21 19:33:12 +02:00

18 lines
256 B
C

#include <omp.h>
#include <stdlib.h>
int
main ()
{
if (omp_get_level ())
abort ();
#pragma omp target if (0)
if (omp_get_level ())
abort ();
#pragma omp target if (0)
#pragma omp teams
if (omp_get_level ())
abort ();
return 0;
}