1  /* { dg-do compile } */
       2  
       3  #pragma omp requires reverse_offload
       4  
       5  void
       6  foo (int n)
       7  {
       8    #pragma omp target device (ancestor: 1)
       9    ;
      10  
      11  
      12    /* Ensure that the integer expression in the 'device' clause for
      13       device-modifier 'ancestor' evaluates to '1' in case of a constant.  */
      14  
      15    #pragma omp target device (ancestor : 1)
      16    ;
      17    #pragma omp target device (ancestor : 42) /* { dg-error "the 'device' clause expression must evaluate to '1'" } */
      18    ;
      19  
      20    #pragma omp target device (ancestor : n)
      21    ;
      22    #pragma omp target device (ancestor : n + 1)
      23    ;
      24  
      25  
      26    /* Ensure that only one 'device' clause appears on the construct.  */
      27  
      28    #pragma omp target device (17) device (42) /* { dg-error "too many 'device' clauses" } */
      29    ;
      30  
      31  
      32    /* Ensure that with 'ancestor' only the 'device', 'firstprivate', 'private',
      33       'defaultmap', and 'map' clauses appear on the construct.  */
      34  
      35    #pragma omp target nowait device (ancestor: 1) /* { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" } */
      36    ;
      37    #pragma omp target device (ancestor: 1) nowait /* { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" } */
      38    ;
      39    #pragma omp target nowait device (42)
      40    ;
      41    #pragma omp target nowait device (device_num: 42)
      42    ;
      43  
      44    int a = 0, b = 0, c = 0;
      45    #pragma omp target device (ancestor: 1) firstprivate (a) private (b) defaultmap (none) map (c)
      46    ;
      47  
      48  
      49    /* Ensure that 'ancestor' is only used with 'target' constructs (not with
      50       'target data', 'target update' etc.).  */
      51  
      52    #pragma omp target data map (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
      53    ;
      54    #pragma omp target enter data map (to: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
      55    #pragma omp target exit data map (from: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
      56    #pragma omp target update to (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" "" { target *-*-* } } */
      57  
      58  
      59    /* Ensure that no OpenMP constructs appear inside target regions with 
      60       'ancestor'.  */
      61  
      62    #pragma omp target device (ancestor: 1)
      63      {
      64        #pragma omp teams /* { dg-error "OpenMP constructs are not allowed in target region with 'ancestor'" } */
      65        ;
      66      }
      67  
      68    #pragma omp target device (device_num: 1) 
      69      {
      70        #pragma omp teams
      71        ;
      72      }
      73  
      74    #pragma omp target device (1) 
      75      {
      76        #pragma omp teams
      77        ;
      78      }
      79  
      80  }