gcc/testsuite/c-c++-common/gomp/allocate-9.c

   1 typedef enum omp_allocator_handle_t
   2 #if __cplusplus >= 201103L
   3 : __UINTPTR_TYPE__
   4 #endif
   5 {
   6   omp_null_allocator = 0,
   7   omp_default_mem_alloc = 1,
   8   omp_large_cap_mem_alloc = 2,
   9   omp_const_mem_alloc = 3,
  10   omp_high_bw_mem_alloc = 4,
  11   omp_low_lat_mem_alloc = 5,
  12   omp_cgroup_mem_alloc = 6,
  13   omp_pteam_mem_alloc = 7,
  14   omp_thread_mem_alloc = 8,
  15   __ompx_last_mem_alloc = omp_thread_mem_alloc,
  16   __omp_allocator_handle_t_max__ = __UINTPTR_MAX__
  17 } omp_allocator_handle_t;
  18
  19
  20 static int A[5] = {1,2,3,4,5};
  21 int B, C, D;
  22
  23 /* If the following fails because of added predefined allocators, please update
  24    - c/c-parser.c's c_parser_omp_allocate
  25    - fortran/openmp.cc's is_predefined_allocator
  26    - libgomp/env.c's parse_allocator
  27    - libgomp/libgomp.texi (document the new values - multiple locations)
  28    + ensure that the memory-spaces are also up to date. */
  29
  30 #pragma omp allocate(A) align(32) allocator((omp_allocator_handle_t) 9) /* { dg-error "'allocator' clause requires a predefined allocator as 'A' is static" "" { xfail c++ } } */
  31 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  32
  33
  34 // typo in allocator name:
  35 #pragma omp allocate(A) allocator(omp_low_latency_mem_alloc)
  36 /* { dg-error "'omp_low_latency_mem_alloc' undeclared here \\(not in a function\\); did you mean 'omp_low_lat_mem_alloc'\\?" "" { target c } .-1 } */
  37 /* { dg-error "'omp_low_latency_mem_alloc' was not declared in this scope; did you mean 'omp_low_lat_mem_alloc'\\?" "" { target c++ } .-2 } */
  38 /* { dg-error "'allocator' clause required for static variable 'A'" "" { target c } .-3 } */
  39 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-4 } */
  40
  41 /* align be const multiple of 2 */
  42 #pragma omp allocate(A) align(31) allocator(omp_default_mem_alloc) /* { dg-error "'align' clause argument needs to be positive constant power of two integer expression" } */
  43 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' for static variables like 'A' not yet supported" "" { target c } .-1 } */
  44 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  45
  46 /* allocator missing (required as A is static) */
  47 #pragma omp allocate(A) align(32) /* { dg-error "'allocator' clause required for static variable 'A'" "" { xfail c++ } } */
  48 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  49
  50 /* "expression in the clause must be a constant expression that evaluates to one of the
  51    predefined memory allocator values -> omp_low_lat_mem_alloc"  */
  52 #pragma omp allocate(B) allocator((omp_allocator_handle_t) (omp_high_bw_mem_alloc+1)) align(32) /* OK: omp_low_lat_mem_alloc */
  53 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' for static variables like 'B' not yet supported" "" { target c } .-1 } */
  54 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  55
  56 #pragma omp allocate(C) allocator((omp_allocator_handle_t) 2) /* OK: omp_large_cap_mem_alloc */
  57 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' for static variables like 'C' not yet supported" "" { target c } .-1 } */
  58 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  59
  60 #pragma omp allocate(A) align(32) allocator(omp_null_allocator) /* { dg-error "'allocator' clause requires a predefined allocator as 'A' is static" "" { xfail c++ } } */
  61 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  62
  63 #pragma omp allocate(C) align(32) allocator(omp_large_cap_mem_alloc)  /* { dg-error "'C' already appeared as list item in an 'allocate' directive" "" { xfail *-*-* } } */
  64 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' for static variables like 'C' not yet supported" "" { target c } .-1 } */
  65 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  66
  67 // allocate directive in same TU
  68 int f()
  69 {
  70   #pragma omp allocate(D) align(32) allocator(omp_large_cap_mem_alloc) /* { dg-error "'allocate' directive must be in the same scope as 'D'" "" { xfail c++ } } */
  71 /* { dg-note "declared here" "" { target c } 21 } */
  72 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  73   return A[0];
  74 }
  75
  76 int g()
  77 {
  78   int a2=1, b2=2;
  79   #pragma omp allocate(a2)
  80 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  81   #pragma omp allocate(a2)  /* { dg-error "'a2' already appeared as list item in an 'allocate' directive" "" { xfail c++ } } */
  82 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  83   {
  84     int c2=3;
  85     #pragma omp allocate(c2, b2) /* { dg-error "'allocate' directive must be in the same scope as 'b2'" "" { xfail c++ } } */
  86 /* { dg-note "declared here" "" { target c } .-8 } */
  87 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-2 } */
  88     return c2+a2+b2;
  89   }
  90 }
  91
  92 int h(int q)
  93 {
  94   #pragma omp allocate(q)  /* { dg-error "function parameter 'q' may not appear as list item in an 'allocate' directive" "" { xfail c++ } } */
  95 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
  96   return q;
  97 }
  98
  99 int
 100 k ()
 101 {
 102   static int var3 = 8;
 103   #pragma omp allocate(var3) allocator((omp_allocator_handle_t)-1L)  /* { dg-error "'allocator' clause requires a predefined allocator as 'var3' is static" "" { target c } } */
 104 /* { dg-message "sorry, unimplemented: '#pragma omp allocate' not yet supported" "" { target c++ } .-1 } */
 105   return var3;
 106 }