comparison libgomp/testsuite/libgomp.fortran/workshare1.f90 @ 0:a06113de4d67

first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 function foo ()
2 integer :: foo
3 logical :: foo_seen
4 common /foo_seen/ foo_seen
5 foo_seen = .true.
6 foo = 3
7 end
8 function bar ()
9 integer :: bar
10 logical :: bar_seen
11 common /bar_seen/ bar_seen
12 bar_seen = .true.
13 bar = 3
14 end
15 integer :: a (10), b (10), foo, bar
16 logical :: foo_seen, bar_seen
17 common /foo_seen/ foo_seen
18 common /bar_seen/ bar_seen
19
20 foo_seen = .false.
21 bar_seen = .false.
22 !$omp parallel workshare if (foo () .gt. 2) num_threads (bar () + 1)
23 a = 10
24 b = 20
25 a(1:5) = max (a(1:5), b(1:5))
26 !$omp end parallel workshare
27 if (any (a(1:5) .ne. 20)) call abort
28 if (any (a(6:10) .ne. 10)) call abort
29 if (.not. foo_seen .or. .not. bar_seen) call abort
30 end