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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn
#include <stdlib.h>
2
#include <omp.h>
3
 
4
int
5
main (void)
6
{
7
  omp_sched_t kind;
8
  int modifier;
9
 
10
  omp_set_schedule (omp_sched_static, 32);
11
  omp_get_schedule (&kind, &modifier);
12
  if (kind != omp_sched_static || modifier != 32)
13
    abort ();
14
  omp_set_schedule (omp_sched_guided, 4);
15
  omp_get_schedule (&kind, &modifier);
16
  if (kind != omp_sched_guided || modifier != 4)
17
    abort ();
18
  if (omp_get_thread_limit () < 0)
19
    abort ();
20
  omp_set_max_active_levels (6);
21
  if (omp_get_max_active_levels () != 6)
22
    abort ();
23
 
24
  return 0;
25
}

powered by: WebSVN 2.1.0

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