gcc/testsuite/c-c++-common/gomp/adjust-args-5.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

/* { dg-do compile } */

/* Check that the OpenMP 5.1 syntax with commas after the directive name and
   between clauses is supported. */

int f (int a, void *b, float c[2]);

#pragma omp declare variant (f), match (construct={dispatch}), adjust_args (nothing: a), adjust_args (need_device_ptr: b, c)
int f0 (int a, void *b, float c[2]);

int test () {
  int a;
  void *b;
  float c[2];
  struct {int a;} s;

  #pragma omp dispatch, novariants(0), nocontext(1)
  s.a = f0 (a, b, c);

  return s.a;
}