Retro68/gcc/libgomp/testsuite/libgomp.c/ordered-2.c

/* 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;
}