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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc4/] [libgomp/] [testsuite/] [libgomp.c/] [lock-2.c] - Diff between revs 273 and 519

Rev 273	Rev 519
`#include <omp.h>`	`#include <omp.h>`
`#include <stdlib.h>`	`#include <stdlib.h>`

`int`	`int`
`main (void)`	`main (void)`
`{`	`{`
`int l = 0;`	`int l = 0;`
`omp_nest_lock_t lock;`	`omp_nest_lock_t lock;`
`omp_init_nest_lock (&lock);`	`omp_init_nest_lock (&lock);`
`#pragma omp parallel reduction (+:l) num_threads (1)`	`#pragma omp parallel reduction (+:l) num_threads (1)`
`{`	`{`
`if (omp_test_nest_lock (&lock) != 1)`	`if (omp_test_nest_lock (&lock) != 1)`
`l++;`	`l++;`
`if (omp_test_nest_lock (&lock) != 2)`	`if (omp_test_nest_lock (&lock) != 2)`
`l++;`	`l++;`
`#pragma omp task if (0) shared (lock, l)`	`#pragma omp task if (0) shared (lock, l)`
`{`	`{`
`if (omp_test_nest_lock (&lock) != 0)`	`if (omp_test_nest_lock (&lock) != 0)`
`l++;`	`l++;`
`}`	`}`
`#pragma omp taskwait`	`#pragma omp taskwait`
`if (omp_test_nest_lock (&lock) != 3)`	`if (omp_test_nest_lock (&lock) != 3)`
`l++;`	`l++;`
`omp_unset_nest_lock (&lock);`	`omp_unset_nest_lock (&lock);`
`omp_unset_nest_lock (&lock);`	`omp_unset_nest_lock (&lock);`
`omp_unset_nest_lock (&lock);`	`omp_unset_nest_lock (&lock);`
`}`	`}`
`if (l)`	`if (l)`
`abort ();`	`abort ();`
`omp_destroy_nest_lock (&lock);`	`omp_destroy_nest_lock (&lock);`
`return 0;`	`return 0;`
`}`	`}`