Subversion Repositories openrisc

! 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