gcc/testsuite/c-c++-common/gomp/target-device-ancestor-2.c

/* { dg-do compile } */

#pragma omp requires reverse_offload

void
foo (int n)
{
  #pragma omp target device (ancestor: 1)
  ;


  /* Ensure that the integer expression in the 'device' clause for
     device-modifier 'ancestor' evaluates to '1' in case of a constant.  */

  #pragma omp target device (ancestor : 1)
  ;
  #pragma omp target device (ancestor : 42) /* { dg-error "the 'device' clause expression must evaluate to '1'" } */
  ;

  #pragma omp target device (ancestor : n)
  ;
  #pragma omp target device (ancestor : n + 1)
  ;


  /* Ensure that only one 'device' clause appears on the construct.  */

  #pragma omp target device (17) device (42) /* { dg-error "too many 'device' clauses" } */
  ;


  /* Ensure that with 'ancestor' only the 'device', 'firstprivate', 'private',
     'defaultmap', and 'map' clauses appear on the construct.  */

  #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" } */
  ;
  #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" } */
  ;
  #pragma omp target nowait device (42)
  ;
  #pragma omp target nowait device (device_num: 42)
  ;

  int a = 0, b = 0, c = 0;
  #pragma omp target device (ancestor: 1) firstprivate (a) private (b) defaultmap (none) map (c)
  ;


  /* Ensure that 'ancestor' is only used with 'target' constructs (not with
     'target data', 'target update' etc.).  */

  #pragma omp target data map (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
  ;
  #pragma omp target enter data map (to: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
  #pragma omp target exit data map (from: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */
  #pragma omp target update to (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" "" { target *-*-* } } */


  /* Ensure that no OpenMP constructs appear inside target regions with 
     'ancestor'.  */

  #pragma omp target device (ancestor: 1)
    {
      #pragma omp teams /* { dg-error "OpenMP constructs are not allowed in target region with 'ancestor'" } */
      ;
    }

  #pragma omp target device (device_num: 1) 
    {
      #pragma omp teams
      ;
    }

  #pragma omp target device (1) 
    {
      #pragma omp teams
      ;
    }

}