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

   1 /* TODO: enable for C++ once implemented. */
   2 /* { dg-do compile { target c } } */
   3
   4 #pragma omp requires dynamic_allocators
   5
   6 #pragma omp begin declare target
   7 void
   8 f ()
   9 {
  10
  11   int var;
  12   #pragma omp allocate(var)
  13   var = 5;
  14 }
  15 #pragma omp end declare target
  16
  17 void
  18 h ()
  19 {
  20   #pragma omp target
  21    #pragma omp parallel
  22     #pragma omp single
  23      {
  24        int var2[5];
  25        #pragma omp allocate(var2)
  26        var2[0] = 7;
  27      }
  28 }