gcc/testsuite/c-c++-common/gomp/defaultmap-6.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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

void f()
{
  struct s {
    int i;
  };
  int scalar1 = 5;
  int array1[5] = {1,2,3,4,5};
  int *ptr1 = &scalar1;
  struct s mystruct1 = {.i = 5};

  #pragma omp target defaultmap(firstprivate ) defaultmap(firstprivate : aggregate)  /* { dg-error "too many 'defaultmap' clauses with 'aggregate' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }

  #pragma omp target defaultmap(firstprivate : all ) defaultmap(alloc : pointer) /* { dg-error "too many 'defaultmap' clauses with 'pointer' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }


  #pragma omp target defaultmap(firstprivate : aggregate)  defaultmap(firstprivate ) /* { dg-error "too many 'defaultmap' clauses with 'aggregate' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }

  #pragma omp target defaultmap(alloc : pointer) defaultmap(firstprivate : all )  /* { dg-error "too many 'defaultmap' clauses with 'pointer' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }

  #pragma omp target defaultmap(firstprivate :all ) defaultmap(firstprivate : all) /* { dg-error "too many 'defaultmap' clauses with 'all' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }
  #pragma omp target defaultmap(firstprivate ) defaultmap(firstprivate) /* { dg-error "too many 'defaultmap' clauses with unspecified category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }
  #pragma omp target defaultmap(firstprivate ) defaultmap(firstprivate : all) /* { dg-error "too many 'defaultmap' clauses with 'all' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }
  #pragma omp target defaultmap(firstprivate : all) defaultmap(firstprivate) /* { dg-error "too many 'defaultmap' clauses with 'all' category" }  */
   {
     scalar1 = 1; array1[0] = 2; if (ptr1 == 0L) mystruct1.i = 3;
   }
}