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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c++/] [copyin-1.C] - Diff between revs 154 and 816

Rev 154	Rev 816
`// { dg-do run }`	`// { dg-do run }`
`// { dg-require-effective-target tls_runtime }`	`// { dg-require-effective-target tls_runtime }`

`#include`	`#include`

`extern "C" void abort (void);`	`extern "C" void abort (void);`

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

`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);`

`#pragma omp parallel copyin (thr) reduction (\|\|:l)`	`#pragma omp parallel copyin (thr) reduction (\|\|:l)`
`{`	`{`
`l = thr != 32;`	`l = thr != 32;`
`thr = omp_get_thread_num () + 11;`	`thr = omp_get_thread_num () + 11;`
`}`	`}`

`if (l \|\| thr != 11)`	`if (l \|\| thr != 11)`
`abort ();`	`abort ();`

`#pragma omp parallel reduction (\|\|:l)`	`#pragma omp parallel reduction (\|\|:l)`
`l = thr != omp_get_thread_num () + 11;`	`l = thr != omp_get_thread_num () + 11;`

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