gcc/testsuite/c-c++-common/gomp/target-device-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

/* { dg-do compile } */

void
foo (int n)
{
  /* Test to ensure that 'device_num' is parsed correctly in device clauses. */

  #pragma omp target device (1)
  ;

  #pragma omp target device (n)
  ;

  #pragma omp target device (n + 1)
  ;

  #pragma omp target device (device_num : 1)
  ;

  #pragma omp target device (device_num : n)
  ;

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

  #pragma omp target device (invalid : 1) /* { dg-error "expected 'ancestor' or 'device_num'" "" { target *-*-* } } */
  /* { dg-error "expected '\\)' before 'invalid'" "" { target c } .-1 } */
  ;

  #pragma omp target device (device_num : n, n) /* { dg-error "expected '\\)' before ','" } */
  ;
}