testsuite/libgomp.c/ordered-2.c

Go to the documentation of this file.

/* Trivial test of ordered.  */

/* { dg-require-effective-target sync_int_long } */

#include <omp.h>
#include <string.h>
#include <assert.h>
#include "libgomp_g.h"


#define N 100
static int next;
static int CHUNK, NTHR;

static void clean_data (void)
{
  next = 0;
}

static void set_data (long i)
{
  int n = __sync_fetch_and_add (&next, 1);
  assert (n == i);
}


#define TMPL_1(sched)                           \
static void f_##sched##_1 (void *dummy)                 \
{                                   \
  long s0, e0, i;                           \
  if (GOMP_loop_ordered_##sched##_start (0, N, 1, CHUNK, &s0, &e0)) \
    do                                  \
      {                                 \
    for (i = s0; i < e0; ++i)                   \
      {                             \
        GOMP_ordered_start ();                  \
        set_data (i);                       \
        GOMP_ordered_end ();                    \
      }                             \
      }                                 \
    while (GOMP_loop_ordered_##sched##_next (&s0, &e0));        \
  GOMP_loop_end ();                         \
}                                   \
static void t_##sched##_1 (void)                    \
{                                   \
  clean_data ();                            \
  GOMP_parallel_start (f_##sched##_1, NULL, NTHR);          \
  f_##sched##_1 (NULL);                         \
  GOMP_parallel_end ();                         \
}

TMPL_1(static)
TMPL_1(dynamic)
TMPL_1(guided)

static void test (void)
{
  t_static_1 ();
  t_dynamic_1 ();
  t_guided_1 ();
}

int main()
{
  omp_set_dynamic (0);

  NTHR = 4;

  CHUNK = 1;
  test ();

  CHUNK = 5;
  test ();

  CHUNK = 7;
  test ();

  CHUNK = 0;
  t_static_1 ();

  return 0;
}

---