aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/c-c++-common/goacc/self-clause-1.c
blob: 28de3dc05846f71e1e02ea5c2640e5d101ea321d (plain)
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
33
34
/* See also 'if-clause-1.c'.  */

void
f (int b)
{
  struct { int i; } *p;

#pragma acc parallel self(0) self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc parallel self self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc parallel self(*p)
  /* { dg-error {used struct type value where scalar is required} {} { target c } .-1 }
     { dg-error {could not convert '\* p' from 'f\(int\)::<unnamed struct>' to 'bool'} {} { target c++ } .-2 } */
  ;

#pragma acc kernels self(0) self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc kernels self self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc kernels self(*p)
  /* { dg-error {used struct type value where scalar is required} {} { target c } .-1 }
     { dg-error {could not convert '\* p' from 'f\(int\)::<unnamed struct>' to 'bool'} {} { target c++ } .-2 } */
  ;

#pragma acc serial self(0) self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc serial self self(b) /* { dg-error "too many 'self' clauses" } */
  ;
#pragma acc serial self(*p)
  /* { dg-error {used struct type value where scalar is required} {} { target c } .-1 }
     { dg-error {could not convert '\* p' from 'f\(int\)::<unnamed struct>' to 'bool'} {} { target c++ } .-2 } */
  ;
}