PR libgomp/49965
* testsuite/libgomp.c++/task-8.C: Replaced err by errval.
From-SVN: r177428
+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.
#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 ();
}