Retro68/gcc/libgomp/testsuite/libgomp.c/target-3.c

18 lines
256 B
C
Raw Normal View History

2014-09-21 17:33:12 +00:00
#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;
}