diff options
| author | Ulrich Weigand <Ulrich.Weigand@de.ibm.com> | 2010-05-18 07:58:36 +0000 |
|---|---|---|
| committer | Ulrich Weigand <Ulrich.Weigand@de.ibm.com> | 2010-05-18 07:58:36 +0000 |
| commit | 47a1fbc84b859f76b667981823142c1d9db0a1d9 (patch) | |
| tree | 1498312fa2d4548df4eb68430cb1ac244ff3b530 /gcc/testsuite/gfortran.dg/gomp/pr44085.f90 | |
| parent | 6fe542eedfca85788635c35f69d56cb7aef39da0 (diff) | |
Update to gcc-4_4-branch revision 159486.cell-4_4-branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/cell-4_4-branch@159526 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gomp/pr44085.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr44085.f90 | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr44085.f90 b/gcc/testsuite/gfortran.dg/gomp/pr44085.f90 new file mode 100644 index 00000000000..db8fbbc9544 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/pr44085.f90 @@ -0,0 +1,25 @@ +! PR middle-end/44085 +! { dg-do compile } +! { dg-require-effective-target tls_native } +! { dg-options "-fopenmp" } + + integer, save :: thr1, thr2 + integer :: thr3, thr4 + common /thrs/ thr3, thr4 +!$omp threadprivate (thr1, thr2, /thrs/) + +!$omp task untied ! { dg-error "enclosing task" } + thr1 = thr1 + 1 ! { dg-error "used in untied task" } + thr2 = thr2 + 2 ! { dg-error "used in untied task" } + thr3 = thr3 + 3 ! { dg-error "used in untied task" } + thr4 = thr4 + 4 ! { dg-error "used in untied task" } +!$omp end task + +!$omp task + thr1 = thr1 + 1 + thr2 = thr2 + 2 + thr3 = thr3 + 3 + thr4 = thr4 + 4 +!$omp end task + + end |