view libgomp/testsuite/libgomp.c/target-6.c @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
line wrap: on
line source

#include <omp.h>
#include <stdlib.h>

int
main ()
{
  omp_set_dynamic (0);
  omp_set_nested (1);
  if (omp_in_parallel ())
    abort ();
  #pragma omp parallel num_threads (3)
    if (omp_get_thread_num () == 2)
      {
	if (!omp_in_parallel ())
	  abort ();
	#pragma omp parallel num_threads (3)
	  if (omp_get_thread_num () == 1)
	    {
	      if (!omp_in_parallel ()
		  || omp_get_level () != 2
		  || omp_get_ancestor_thread_num (0) != 0
		  || omp_get_ancestor_thread_num (1) != 2
		  || omp_get_ancestor_thread_num (2) != 1
		  || omp_get_ancestor_thread_num (3) != -1)
		abort ();
	      #pragma omp target if (0)
		{
		  if (omp_in_parallel ()
		      || omp_get_level () != 0
		      || omp_get_ancestor_thread_num (0) != 0
		      || omp_get_ancestor_thread_num (1) != -1)
		    abort ();
		  #pragma omp parallel num_threads (2)
		  {
		    if (!omp_in_parallel ()
			|| omp_get_level () != 1
			|| omp_get_ancestor_thread_num (0) != 0
			|| omp_get_ancestor_thread_num (1)
			   != omp_get_thread_num ()
			|| omp_get_ancestor_thread_num (2) != -1)
		      abort ();
		  }
		}
	      #pragma omp target if (0)
		{
		  #pragma omp teams thread_limit (2)
		    {
		      if (omp_in_parallel ()
			  || omp_get_level () != 0
			  || omp_get_ancestor_thread_num (0) != 0
			  || omp_get_ancestor_thread_num (1) != -1)
			abort ();
		      #pragma omp parallel num_threads (2)
		      {
			if (!omp_in_parallel ()
			    || omp_get_level () != 1
			    || omp_get_ancestor_thread_num (0) != 0
			    || omp_get_ancestor_thread_num (1)
			       != omp_get_thread_num ()
			    || omp_get_ancestor_thread_num (2) != -1)
			  abort ();
		      }
		    }
		}
	    }
      }
  return 0;
}