aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/gacc/branch.c
blob: 53e5cb2f638002be7eb37354112a06583981f648 (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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
/* { dg-do compile } */
/* { dg-options "-fopenacc" } */

int main() {
  int  i;

  if (1) {
  #pragma acc parallel
  }  /* { dg-error "Unexpected" } */
  #pragma acc end parallel
  } 

  if (1) {
  #pragma acc kernels
  }  /* { dg-error "Unexpected" } */
  #pragma acc end kernels
  } 

  #pragma acc parallel
  if (1) {
  #pragma acc end parallel /* { dg-error "Unexpected" } */
  } 
  #pragma acc end parallel

  #pragma acc kernels
  if (1) {
  #pragma acc end kernels /* { dg-error "Unexpected" } */
  } 
  #pragma acc end kernels

  #pragma acc parallel
  if (1) {
  } 
  #pragma acc end parallel

  #pragma acc kernels
  if (1) {
  } 
  #pragma acc end kernels

  if (1) {
  #pragma acc parallel
  #pragma acc end parallel
  } 

  if (1) {
  #pragma acc kernels
  #pragma acc end kernels
  } 

  #pragma acc parallel
  /* TODO: implement in lowering pass */
  goto aa /* { dg-error "branch|exit" } */
  #pragma acc end parallel
aa:  
  i = 0

}