diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-1.f90')
| -rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-1.f90 | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-1.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-1.f90 deleted file mode 100644 index d7d3e3fd6..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/lock-1.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) - if (omp_test_nest_lock (lock) .ne. 1) call abort - if (omp_test_nest_lock (lock) .ne. 2) call abort -!$omp parallel if (.false.) reduction (.or.:l) - ! In OpenMP 2.5 this was supposed to return 3, - ! but in OpenMP 3.0 the parallel region has a different - ! task and omp_*_lock_t are owned by tasks, not by threads. - if (omp_test_nest_lock (lock) .ne. 0) l = .true. -!$omp end parallel - if (l) call abort - if (omp_test_nest_lock (lock) .ne. 3) call abort - call omp_unset_nest_lock (lock) - call omp_unset_nest_lock (lock) - call omp_unset_nest_lock (lock) - call omp_destroy_nest_lock (lock) -end |