URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr44085.f90] - Rev 484
Go to most recent revision | Compare with Previous | Blame | View Log
! 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
Go to most recent revision | Compare with Previous | Blame | View Log