OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [icv-2.c] - Blame information for rev 735

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
/* { dg-do run { target *-*-linux* } } */
2
 
3
#ifndef _GNU_SOURCE
4
#define _GNU_SOURCE 1
5
#endif
6
#include <pthread.h>
7
#include <omp.h>
8
#include <stdio.h>
9
#include <stdlib.h>
10
 
11
pthread_barrier_t bar;
12
 
13
void *tf (void *p)
14
{
15
  int l;
16
  if (p)
17
    omp_set_num_threads (3);
18
  pthread_barrier_wait (&bar);
19
  if (!p)
20
    omp_set_num_threads (6);
21
  pthread_barrier_wait (&bar);
22
  omp_set_dynamic (0);
23
  if (omp_get_max_threads () != (p ? 3 : 6))
24
    abort ();
25
  l = 0;
26
  #pragma omp parallel num_threads (6) reduction (|:l)
27
    {
28
      l |= omp_get_max_threads () != (p ? 3 : 6);
29
      omp_set_num_threads ((p ? 3 : 6) + omp_get_thread_num ());
30
      l |= omp_get_max_threads () != ((p ? 3 : 6) + omp_get_thread_num ());
31
    }
32
  if (l)
33
    abort ();
34
  return NULL;
35
}
36
 
37
int
38
main (void)
39
{
40
  pthread_t th;
41
  pthread_barrier_init (&bar, NULL, 2);
42
  pthread_create (&th, NULL, tf, NULL);
43
  tf ("");
44
  pthread_join (th, NULL);
45
  return 0;
46
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.