OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [task4.f90] - Rev 735

Compare with Previous | Blame | View Log

! { dg-do run }

  use omp_lib
  integer :: err, e

!$omp atomic write
  err = 0
!$omp parallel shared(err) private(e)
  if (omp_in_final ()) then
!$omp atomic write
    err = 1
  endif
!$omp task if (.false.) shared(err)
  if (omp_in_final ()) then
!$omp atomic write
    err = 1
  endif
!$omp task if (.false.) shared(err)
  if (omp_in_final ()) then
!$omp atomic write
    err = 1
  endif
!$omp end task
!$omp end task
!$omp atomic read
  e = err
!$omp task final (e .eq. 0) shared(err)
  if (.not.omp_in_final ()) then
!$omp atomic write
    err = 1
  endif
!$omp taskyield
!$omp taskwait
!$omp task shared(err)
  if (.not.omp_in_final ()) then
!$omp atomic write
    err = 1
  endif
!$omp end task
!$omp end task
!$omp end parallel
!$omp atomic read
  e = err
  if (e .ne. 0) call abort
end

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.