URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 735 |
Rev 783 |
function foo ()
|
function foo ()
|
integer :: foo
|
integer :: foo
|
logical :: foo_seen
|
logical :: foo_seen
|
common /foo_seen/ foo_seen
|
common /foo_seen/ foo_seen
|
foo_seen = .true.
|
foo_seen = .true.
|
foo = 3
|
foo = 3
|
end
|
end
|
function bar ()
|
function bar ()
|
integer :: bar
|
integer :: bar
|
logical :: bar_seen
|
logical :: bar_seen
|
common /bar_seen/ bar_seen
|
common /bar_seen/ bar_seen
|
bar_seen = .true.
|
bar_seen = .true.
|
bar = 3
|
bar = 3
|
end
|
end
|
integer :: a (10), b (10), foo, bar
|
integer :: a (10), b (10), foo, bar
|
logical :: foo_seen, bar_seen
|
logical :: foo_seen, bar_seen
|
common /foo_seen/ foo_seen
|
common /foo_seen/ foo_seen
|
common /bar_seen/ bar_seen
|
common /bar_seen/ bar_seen
|
|
|
foo_seen = .false.
|
foo_seen = .false.
|
bar_seen = .false.
|
bar_seen = .false.
|
!$omp parallel workshare if (foo () .gt. 2) num_threads (bar () + 1)
|
!$omp parallel workshare if (foo () .gt. 2) num_threads (bar () + 1)
|
a = 10
|
a = 10
|
b = 20
|
b = 20
|
a(1:5) = max (a(1:5), b(1:5))
|
a(1:5) = max (a(1:5), b(1:5))
|
!$omp end parallel workshare
|
!$omp end parallel workshare
|
if (any (a(1:5) .ne. 20)) call abort
|
if (any (a(1:5) .ne. 20)) call abort
|
if (any (a(6:10) .ne. 10)) call abort
|
if (any (a(6:10) .ne. 10)) call abort
|
if (.not. foo_seen .or. .not. bar_seen) call abort
|
if (.not. foo_seen .or. .not. bar_seen) call abort
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.