libgomp/testsuite/libgomp.c/task-7.c

   1 /* { dg-do run } */
   2
   3 #include <omp.h>
   4 #include <stdlib.h>
   5
   6 int
   7 main ()
   8 {
   9   #pragma omp task final (1)
  10   {
  11     if (!omp_in_final ())
  12       abort ();
  13     #pragma omp task
  14     {
  15       if (!omp_in_final ())
  16         abort ();
  17       #pragma omp target nowait
  18       if (omp_in_final ())
  19         abort ();
  20       if (!omp_in_final ())
  21         abort ();
  22       #pragma omp taskwait
  23     }
  24   }
  25   return 0;
  26 }