re PR target/49965 (libgomp.c++/reduction-4.C and libgomp.c++/task-8.C FAIL on Solaris 11/SPARC)
PR libgomp/49965 * testsuite/libgomp.c++/task-8.C: Replaced err by errval. From-SVN: r177428
This commit is contained in:
parent
96c891b30a
commit
98d0368392
|
@ -1,3 +1,8 @@
|
|||
2011-08-05 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
|
||||
|
||||
PR libgomp/49965
|
||||
* testsuite/libgomp.c++/task-8.C: Replaced err by errval.
|
||||
|
||||
2011-08-03 Uros Bizjak <ubizjak@gmail.com>
|
||||
|
||||
* config/linux/proc.h: New.
|
||||
|
|
|
@ -3,42 +3,42 @@
|
|||
#include <omp.h>
|
||||
#include <cstdlib>
|
||||
|
||||
int err;
|
||||
int errval;
|
||||
|
||||
int
|
||||
main ()
|
||||
{
|
||||
int e;
|
||||
#pragma omp parallel shared(err)
|
||||
#pragma omp parallel shared(errval)
|
||||
{
|
||||
if (omp_in_final ())
|
||||
#pragma omp atomic write
|
||||
err = 1;
|
||||
#pragma omp task if (0) shared(err)
|
||||
errval = 1;
|
||||
#pragma omp task if (0) shared(errval)
|
||||
{
|
||||
if (omp_in_final ())
|
||||
#pragma omp atomic write
|
||||
err = 1;
|
||||
#pragma omp task if (0) shared(err)
|
||||
errval = 1;
|
||||
#pragma omp task if (0) shared(errval)
|
||||
if (omp_in_final ())
|
||||
#pragma omp atomic write
|
||||
err = 1;
|
||||
errval = 1;
|
||||
}
|
||||
#pragma omp task final (1) shared(err)
|
||||
#pragma omp task final (1) shared(errval)
|
||||
{
|
||||
if (!omp_in_final ())
|
||||
#pragma omp atomic write
|
||||
err = 1;
|
||||
errval = 1;
|
||||
#pragma omp taskyield
|
||||
#pragma omp taskwait
|
||||
#pragma omp task shared(err)
|
||||
#pragma omp task shared(errval)
|
||||
if (!omp_in_final ())
|
||||
#pragma omp atomic write
|
||||
err = 1;
|
||||
errval = 1;
|
||||
}
|
||||
}
|
||||
#pragma omp atomic read
|
||||
e = err;
|
||||
e = errval;
|
||||
if (e)
|
||||
abort ();
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue