Libgomp: testsuite/libgomp.c/lib-2.c Source File

00001 #include <stdlib.h>
00002 #include <omp.h>
00003 
00004 int
00005 main (void)
00006 {
00007   omp_sched_t kind;
00008   int modifier;
00009 
00010   omp_set_schedule (omp_sched_static, 32);
00011   omp_get_schedule (&kind, &modifier);
00012   if (kind != omp_sched_static || modifier != 32)
00013     abort ();
00014   omp_set_schedule (omp_sched_guided, 4);
00015   omp_get_schedule (&kind, &modifier);
00016   if (kind != omp_sched_guided || modifier != 4)
00017     abort ();
00018   if (omp_get_thread_limit () < 0)
00019     abort ();
00020   omp_set_max_active_levels (6);
00021   if (omp_get_max_active_levels () != 6)
00022     abort ();
00023 
00024   return 0;
00025 }