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 791

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.