gcc/testsuite/c-c++-common/goacc/nesting-1.c

   1 void
   2 f_acc_parallel (void)
   3 {
   4 #pragma acc parallel
   5   {
   6     int i;
   7
   8 #pragma acc loop
   9     for (i = 0; i < 2; ++i)
  10       ;
  11   }
  12 }
  13
  14
  15 void
  16 f_acc_kernels (void)
  17 {
  18 #pragma acc kernels
  19   {
  20     int i;
  21
  22 #pragma acc loop
  23     for (i = 0; i < 2; ++i)
  24       ;
  25   }
  26 }
  27
  28
  29 void
  30 f_acc_data (void)
  31 {
  32 #pragma acc data
  33   {
  34     int i;
  35
  36 #pragma acc parallel
  37     ;
  38
  39 #pragma acc parallel
  40     {
  41 #pragma acc loop
  42       for (i = 0; i < 2; ++i)
  43         ;
  44     }
  45
  46 #pragma acc kernels
  47     ;
  48
  49 #pragma acc kernels
  50     {
  51 #pragma acc loop
  52       for (i = 0; i < 2; ++i)
  53         ;
  54     }
  55
  56 #pragma acc data
  57     ;
  58
  59 #pragma acc update host(i)
  60
  61 #pragma acc enter data copyin(i)
  62
  63 #pragma acc exit data delete(i)
  64
  65 #pragma acc loop
  66     for (i = 0; i < 2; ++i)
  67       ;
  68
  69 #pragma acc data
  70     {
  71 #pragma acc parallel
  72       ;
  73
  74 #pragma acc parallel
  75       {
  76 #pragma acc loop
  77         for (i = 0; i < 2; ++i)
  78           ;
  79       }
  80
  81 #pragma acc kernels
  82       ;
  83
  84 #pragma acc kernels
  85       {
  86 #pragma acc loop
  87         for (i = 0; i < 2; ++i)
  88           ;
  89       }
  90
  91 #pragma acc data
  92       ;
  93
  94 #pragma acc update host(i)
  95
  96 #pragma acc enter data copyin(i)
  97
  98 #pragma acc exit data delete(i)
  99
 100 #pragma acc loop
 101       for (i = 0; i < 2; ++i)
 102         ;
 103     }
 104   }
 105 }