diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-2.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-2.f90 | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-2.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-2.f90 deleted file mode 100644 index 9965139b9..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-2.f90 +++ /dev/null @@ -1,24 +0,0 @@ -! { dg-do run } - - use omp_lib - - integer (kind = omp_nest_lock_kind) :: lock - logical :: l - - l = .false. - call omp_init_nest_lock (lock) -!$omp parallel num_threads (1) reduction (.or.:l) - if (omp_test_nest_lock (lock) .ne. 1) call abort - if (omp_test_nest_lock (lock) .ne. 2) call abort -!$omp task if (.false.) shared (lock, l) - if (omp_test_nest_lock (lock) .ne. 0) l = .true. -!$omp end task -!$omp taskwait - if (omp_test_nest_lock (lock) .ne. 3) l = .true. - call omp_unset_nest_lock (lock) - call omp_unset_nest_lock (lock) - call omp_unset_nest_lock (lock) -!$omp end parallel - if (l) call abort - call omp_destroy_nest_lock (lock) -end |