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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [task4.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn 
! { dg-do run }
2 
 
3 
  use omp_lib
4 
  integer :: err, e
5 
 
6 
!$omp atomic write
7 
  err = 0
8 
!$omp parallel shared(err) private(e)
9 
  if (omp_in_final ()) then
10 
!$omp atomic write
11 
    err = 1
12 
  endif
13 
!$omp task if (.false.) shared(err)
14 
  if (omp_in_final ()) then
15 
!$omp atomic write
16 
    err = 1
17 
  endif
18 
!$omp task if (.false.) shared(err)
19 
  if (omp_in_final ()) then
20 
!$omp atomic write
21 
    err = 1
22 
  endif
23 
!$omp end task
24 
!$omp end task
25 
!$omp atomic read
26 
  e = err
27 
!$omp task final (e .eq. 0) shared(err)
28 
  if (.not.omp_in_final ()) then
29 
!$omp atomic write
30 
    err = 1
31 
  endif
32 
!$omp taskyield
33 
!$omp taskwait
34 
!$omp task shared(err)
35 
  if (.not.omp_in_final ()) then
36 
!$omp atomic write
37 
    err = 1
38 
  endif
39 
!$omp end task
40 
!$omp end task
41 
!$omp end parallel
42 
!$omp atomic read
43 
  e = err
44 
  if (e .ne. 0) call abort
45 
end

powered by: WebSVN 2.1.0

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