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.0rc1/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.33.3.c] - Diff between revs 273 and 338

Rev 273	Rev 338
`/* { dg-do compile } */`	`/* { dg-do compile } */`

`#include <stdio.h>`	`#include <stdio.h>`
`#include <stdlib.h>`	`#include <stdlib.h>`
`#include <omp.h>`	`#include <omp.h>`
`omp_lock_t *`	`omp_lock_t *`
`new_lock ()`	`new_lock ()`
`{`	`{`
`omp_lock_t *lock_ptr;`	`omp_lock_t *lock_ptr;`
`#pragma omp single copyprivate(lock_ptr)`	`#pragma omp single copyprivate(lock_ptr)`
`{`	`{`
`lock_ptr = (omp_lock_t *) malloc (sizeof (omp_lock_t));`	`lock_ptr = (omp_lock_t *) malloc (sizeof (omp_lock_t));`
`omp_init_lock (lock_ptr);`	`omp_init_lock (lock_ptr);`
`}`	`}`
`return lock_ptr;`	`return lock_ptr;`
`}`	`}`