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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.33.3.c] - Blame information for rev 853

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


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

Line No.	Rev	Author	Line
1	38	julius	`/* { dg-do compile } */`
2
3			`#include <stdio.h>`
4			`#include <stdlib.h>`
5			`#include <omp.h>`
6			`omp_lock_t *`
7			`new_lock ()`
8			`{`
9			`omp_lock_t *lock_ptr;`
10			`#pragma omp single copyprivate(lock_ptr)`
11			`{`
12			`lock_ptr = (omp_lock_t *) malloc (sizeof (omp_lock_t));`
13			`omp_init_lock (lock_ptr);`
14			`}`
15			`return lock_ptr;`
16			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c/] [appendix-a/] [a.33.3.c] - Blame information for rev 853