gcc/testsuite/c-c++-common/gomp/map-6.c

   1 /* { dg-do compile } */
   2 /* { dg-additional-options "-fdump-tree-original" } */
   3
   4 void
   5 foo (void)
   6 {
   7   /* Test to ensure that the close modifier is parsed and ignored in map clauses. */
   8   int a, b, b1, b2, b3, b4, b5, b6, b7;
   9
  10   #pragma omp target map (a)
  11   ;
  12
  13   #pragma omp target map (to:a)
  14   ;
  15
  16   #pragma omp target map (a to: b) /* { dg-error "'map' clause with map-type modifier other than 'always', 'close' or 'present'" } */
  17   ;
  18
  19   #pragma omp target map (close, a to: b) /* { dg-error "'map' clause with map-type modifier other than 'always', 'close' or 'present'" } */
  20   ;
  21
  22   #pragma omp target enter data map(b7) map (close, a to: b) /* { dg-error "'map' clause with map-type modifier other than 'always', 'close' or 'present'" } */
  23   ;
  24
  25   #pragma omp target exit data map(b7) map (close, a from: b) /* { dg-error "'map' clause with map-type modifier other than 'always', 'close' or 'present'" } */
  26   ;
  27
  28   #pragma omp target data map(b7) map (close, a from: b) /* { dg-error "'map' clause with map-type modifier other than 'always', 'close' or 'present'" } */
  29   ;
  30
  31
  32   #pragma omp target map (close a) /* { dg-error "'close' undeclared" "" { target c } } */
  33   /* { dg-error "'close' was not declared in this scope" "" { target c++ } .-1 } */
  34   /* { dg-error "expected '\\)' before 'a'" "" { target *-*-* } .-2 } */
  35   ;
  36
  37   #pragma omp target map (always a) /* { dg-error "'always' undeclared" "" { target c } } */
  38   /* { dg-error "'always' was not declared in this scope" "" { target c++ } .-1 } */
  39   /* { dg-error "expected '\\)' before 'a'" "" { target *-*-* } .-2 } */
  40   ;
  41
  42   #pragma omp target map (close to:a)
  43   ;
  44
  45   #pragma omp target map (close, to:a)
  46   ;
  47
  48   #pragma omp target map (close delete:a) /* { dg-error "'#pragma omp target' with map-type other than 'to', 'from', 'tofrom' or 'alloc' on 'map' clause" } */
  49   ;
  50
  51   #pragma omp target map (close always to:b1)
  52   ;
  53
  54   #pragma omp target map (close, always to:b2)
  55   ;
  56
  57   #pragma omp target map (close, always, to:b3)
  58   ;
  59
  60   #pragma omp target map (always close to:b4)
  61   ;
  62
  63   #pragma omp target map (always, close to:b5)
  64   ;
  65
  66   #pragma omp target map (always, close, to:b6)
  67   ;
  68
  69   #pragma omp target map (always, always, to:a) /* { dg-error "too many 'always' modifiers" } */
  70   ;
  71
  72   #pragma omp target map (always always, to:a) /* { dg-error "too many 'always' modifiers" } */
  73   ;
  74
  75   #pragma omp target map (always, always to:a) /* { dg-error "too many 'always' modifiers" } */
  76   ;
  77
  78   #pragma omp target map (always always to:a) /* { dg-error "too many 'always' modifiers" } */
  79   ;
  80
  81   #pragma omp target map (close, close, to:a) /* { dg-error "too many 'close' modifiers" } */
  82   ;
  83
  84   #pragma omp target map (close close, to:a) /* { dg-error "too many 'close' modifiers" } */
  85   ;
  86
  87   #pragma omp target map (close, close to:a) /* { dg-error "too many 'close' modifiers" } */
  88   ;
  89
  90   #pragma omp target map (close close to:a) /* { dg-error "too many 'close' modifiers" } */
  91   ;
  92
  93   #pragma omp target map (present , present , to:a) /* { dg-error "too many 'present' modifiers" } */
  94   ;
  95
  96   #pragma omp target map (present  present , to:a) /* { dg-error "too many 'present' modifiers" } */
  97   ;
  98
  99   #pragma omp target map (present , present  to:a) /* { dg-error "too many 'present' modifiers" } */
 100   ;
 101
 102   #pragma omp target map (present  present  to:a) /* { dg-error "too many 'present' modifiers" } */
 103   ;
 104
 105   #pragma omp target map (always to : a) map (close to : b) map (present,tofrom : b1) map(always,present,alloc : b2) map(close, from: b3)
 106   ;
 107
 108   #pragma omp target data map(tofrom:b1)
 109   ;
 110   #pragma omp target data map(close,tofrom:b1)
 111   ;
 112   #pragma omp target data map(close always,tofrom:b1)
 113   ;
 114   #pragma omp target data map(close always,tofrom:b1)
 115   ;
 116   #pragma omp target data map(close present,tofrom:b1)
 117   ;
 118   #pragma omp target data map(close present,tofrom:b1)
 119   ;
 120   #pragma omp target data map(always close present,tofrom:b1)
 121   ;
 122   #pragma omp target data map(always close present,tofrom:b1)
 123   ;
 124
 125   #pragma omp target enter data map(alloc: a) map(to:b) map(tofrom:b1)
 126   #pragma omp target enter data map(close, alloc: a) map(close,to:b) map(close,tofrom:b1)
 127   #pragma omp target enter data map(always,alloc: a) map(always,to:b) map(close always,tofrom:b1)
 128   #pragma omp target enter data map(always,close,alloc: a) map(close,always,to:b) map(close always,tofrom:b1)
 129   #pragma omp target enter data map(present,alloc: a) map(present,to:b) map(close present,tofrom:b1)
 130   #pragma omp target enter data map(present,close,alloc: a) map(close,present,to:b) map(close present,tofrom:b1)
 131   #pragma omp target enter data map(present,always,alloc: a) map(always,present,to:b) map(always close present,tofrom:b1)
 132   #pragma omp target enter data map(present,always,close,alloc: a) map(close,present,always,to:b) map(always close present,tofrom:b1)
 133
 134   #pragma omp target exit data map(delete: a) map(release:b) map(from:b1)
 135   #pragma omp target exit data map(close,delete: a) map(close,release:b) map(close,from:b1)
 136   #pragma omp target exit data map(always,delete: a) map(always,release:b) map(close always,from:b1)
 137   #pragma omp target exit data map(always,close,delete: a) map(close,always,release:b) map(close always,from:b1)
 138   #pragma omp target exit data map(present,delete: a) map(present,release:b) map(close present,from:b1)
 139   #pragma omp target exit data map(present,close,delete: a) map(close,present,release:b) map(close present,from:b1)
 140   #pragma omp target exit data map(present,always,delete: a) map(always,present,release:b) map(always close present,from:b1)
 141   #pragma omp target exit data map(present,always,close,delete: a) map(close,present,always,release:b) map(always close present,from:b1)
 142
 143   int close = 0;
 144   #pragma omp target map (close)
 145   ;
 146
 147   #pragma omp target map (close a) /* { dg-error "expected '\\)' before 'a'" } */
 148   ;
 149
 150   int always = 0;
 151   #pragma omp target map (always)
 152   ;
 153
 154   #pragma omp target map (always a) /* { dg-error "expected '\\)' before 'a'" } */
 155   ;
 156
 157   #pragma omp target map (always, close)
 158   ;
 159
 160   #pragma omp target map (always, always)  /* { dg-error "'always' appears more than once in map clauses" } */
 161   ;
 162
 163   #pragma omp target map (always, always, close)  /* { dg-error "'always' appears more than once in map clauses" } */
 164   ;
 165
 166   #pragma omp target map (always, close, to: always, close, b7)
 167   ;
 168
 169   int to = 0;
 170   #pragma omp target map (always, close, to)
 171   ;
 172
 173   #pragma omp target map (to, always, close)
 174     {
 175       to = always = close = 1;
 176     }
 177   if (to != 1 || always != 1 || close != 1)
 178     __builtin_abort ();
 179   ;
 180 }
 181
 182 /* { dg-final { scan-tree-dump-not "map\\(\[^\n\r)]*close\[^\n\r)]*to:" "original" } } */
 183
 184 /* { dg-final { scan-tree-dump-times "pragma omp target map\\(always,to:" 7 "original" } } */
 185
 186 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b1" "original" } } */
 187 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b2" "original" } } */
 188 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b3" "original" } } */
 189 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b4" "original" } } */
 190 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b5" "original" } } */
 191 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b6" "original" } } */
 192 /* { dg-final { scan-tree-dump "pragma omp target map\\(always,to:b7\\) map\\(always,to:close\\) map\\(always,to:always\\)" "original" } } */
 193
 194 /* Note: 'always,alloc' is the same as 'alloc'; hence, there is no 'always' for 'b'. Additionally, 'close' is ignored. */
 195
 196 /* { dg-final { scan-tree-dump "#pragma omp target map\\(from:b3\\) map\\(present,alloc:b2\\) map\\(present,tofrom:b1\\) map\\(to:b\\) map\\(always,to:a\\)" "original" } } */
 197
 198 /* { dg-final { scan-tree-dump-times "#pragma omp target data map\\(tofrom:b1\\)\[\r\n\]" 2 "original" } } */
 199 /* { dg-final { scan-tree-dump-times "#pragma omp target data map\\(always,tofrom:b1\\)\[\r\n\]" 2 "original" } } */
 200 /* { dg-final { scan-tree-dump-times "#pragma omp target data map\\(present,tofrom:b1\\)\[\r\n\]" 2 "original" } } */
 201 /* { dg-final { scan-tree-dump-times "#pragma omp target data map\\(always,present,tofrom:b1\\)\[\r\n\]" 2 "original" } } */
 202 /* { dg-final { scan-tree-dump-times "#pragma omp target enter data map\\(to:b1\\) map\\(to:b\\) map\\(alloc:a\\)\[\r\n\]" 2 "original" } } */
 203 /* { dg-final { scan-tree-dump-times "#pragma omp target enter data map\\(always,to:b1\\) map\\(always,to:b\\) map\\(alloc:a\\)\[\r\n\]" 2 "original" } } */
 204 /* { dg-final { scan-tree-dump-times "#pragma omp target enter data map\\(present,to:b1\\) map\\(present,to:b\\) map\\(present,alloc:a\\)\[\r\n\]" 2 "original" } } */
 205 /* { dg-final { scan-tree-dump-times "#pragma omp target enter data map\\(always,present,to:b1\\) map\\(always,present,to:b\\) map\\(present,alloc:a\\)\[\r\n\]" 2 "original" } } */
 206 /* { dg-final { scan-tree-dump-times "#pragma omp target exit data map\\(from:b1\\) map\\(release:b\\) map\\(delete:a\\)\[\r\n\]" 2 "original" } } */
 207 /* { dg-final { scan-tree-dump-times "#pragma omp target exit data map\\(always,from:b1\\) map\\(release:b\\) map\\(delete:a\\)\[\r\n\]" 2 "original" } } */
 208 /* { dg-final { scan-tree-dump-times "#pragma omp target exit data map\\(present,from:b1\\) map\\(release:b\\) map\\(delete:a\\)\[\r\n\]" 2 "original" } } */
 209 /* { dg-final { scan-tree-dump-times "#pragma omp target exit data map\\(always,present,from:b1\\) map\\(release:b\\) map\\(delete:a\\)\[\r\n\]" 2 "original" } } */