Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/lock-1.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 ! { dg-do run } | |
2 | |
3 use omp_lib | |
4 | |
5 integer (kind = omp_nest_lock_kind) :: lock | |
6 logical :: l | |
7 | |
8 l = .false. | |
9 call omp_init_nest_lock (lock) | |
10 if (omp_test_nest_lock (lock) .ne. 1) call abort | |
11 if (omp_test_nest_lock (lock) .ne. 2) call abort | |
12 !$omp parallel if (.false.) reduction (.or.:l) | |
13 ! In OpenMP 2.5 this was supposed to return 3, | |
14 ! but in OpenMP 3.0 the parallel region has a different | |
15 ! task and omp_*_lock_t are owned by tasks, not by threads. | |
16 if (omp_test_nest_lock (lock) .ne. 0) l = .true. | |
17 !$omp end parallel | |
18 if (l) call abort | |
19 if (omp_test_nest_lock (lock) .ne. 3) call abort | |
20 call omp_unset_nest_lock (lock) | |
21 call omp_unset_nest_lock (lock) | |
22 call omp_unset_nest_lock (lock) | |
23 call omp_destroy_nest_lock (lock) | |
24 end |