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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-dev/] [fsf-gcc-snapshot-1-mar-12/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [copyin-3.c] - Diff between revs 735 and 783

Rev 735	Rev 783
`/* { dg-do run } */`	`/* { dg-do run } */`
`/* { dg-options "-O2" } */`	`/* { dg-options "-O2" } */`
`/* { dg-require-effective-target tls_runtime } */`	`/* { dg-require-effective-target tls_runtime } */`

`#include <omp.h>`	`#include <omp.h>`
`#include <stdlib.h>`	`#include <stdlib.h>`

`int thr;`	`int thr;`
`#pragma omp threadprivate (thr)`	`#pragma omp threadprivate (thr)`

`int`	`int`
`test (int l)`	`test (int l)`
`{`	`{`
`return l \|\| (thr != omp_get_thread_num () * 2);`	`return l \|\| (thr != omp_get_thread_num () * 2);`
`}`	`}`

`int`	`int`
`main (void)`	`main (void)`
`{`	`{`
`int l = 0;`	`int l = 0;`

`omp_set_dynamic (0);`	`omp_set_dynamic (0);`
`omp_set_num_threads (6);`	`omp_set_num_threads (6);`

`thr = 8;`	`thr = 8;`
`/* Broadcast the value to all threads. */`	`/* Broadcast the value to all threads. */`
`#pragma omp parallel copyin (thr)`	`#pragma omp parallel copyin (thr)`
`;`	`;`

`#pragma omp parallel reduction (\|\|:l)`	`#pragma omp parallel reduction (\|\|:l)`
`{`	`{`
`/* Now test if the broadcast succeeded. */`	`/* Now test if the broadcast succeeded. */`
`l = thr != 8;`	`l = thr != 8;`
`thr = omp_get_thread_num () * 2;`	`thr = omp_get_thread_num () * 2;`
`#pragma omp barrier`	`#pragma omp barrier`
`l = test (l);`	`l = test (l);`
`}`	`}`

`if (l)`	`if (l)`
`abort ();`	`abort ();`
`return 0;`	`return 0;`
`}`	`}`