Function omp_alloc_array

test_more/deprecated/omp_alloc.cpp:96–150

};

bool omp_alloc_array(void)
{  bool ok = true;
   using CppAD::omp_alloc;
   size_t i;

   // check initial memory values
   size_t thread = omp_alloc::get_thread_num();
   ok &= thread == 0;
   ok &= ! CppAD::memory_leak();
   size_t static_inuse = omp_alloc::inuse(0);

   // initial allocation of an array
   size_t  size_min  = 3;
   size_t  size_one;
   my_char *array_one  =
      omp_alloc::create_array<my_char>(size_min, size_one);

   // check the values and change them to null 'x'
   for(i = 0; i < size_one; i++)
   {  ok &= array_one[i].ch_ == ' ';
      array_one[i].ch_ = 'x';
   }

   // now create a longer array
   size_t size_two;
   my_char *array_two =
      omp_alloc::create_array<my_char>(2 * size_min, size_two);

   // check the values in array one
   for(i = 0; i < size_one; i++)
      ok &= array_one[i].ch_ == 'x';

   // check the values in array two
   for(i = 0; i < size_two; i++)
      ok &= array_two[i].ch_ == ' ';

   // check the amount of inuse and available memory
   // (an extra size_t value is used for each memory block).
   size_t check = static_inuse + sizeof(my_char)*(size_one + size_two);
   ok   &= omp_alloc::inuse(thread) - check < sizeof(my_char);
   ok   &= omp_alloc::available(thread) == 0;

   // delete the arrays
   omp_alloc::delete_array(array_one);
   omp_alloc::delete_array(array_two);
   ok   &= omp_alloc::inuse(thread) == static_inuse;
   check = sizeof(my_char)*(size_one + size_two);
   ok   &= omp_alloc::available(thread) - check < sizeof(my_char);

   // free the memory for use by this thread
   omp_alloc::free_available(thread);
   ok &= ! CppAD::memory_leak();

   return ok;
}
} // End empty namespace

bool omp_alloc(void)