diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/lib1.f90')
-rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/lib1.f90 | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/lib1.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/lib1.f90 deleted file mode 100644 index 884001867..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/lib1.f90 +++ /dev/null @@ -1,76 +0,0 @@ -! { dg-do run } - - use omp_lib - - double precision :: d, e - logical :: l - integer (kind = omp_lock_kind) :: lck - integer (kind = omp_nest_lock_kind) :: nlck - - d = omp_get_wtime () - - call omp_init_lock (lck) - call omp_set_lock (lck) - if (omp_test_lock (lck)) call abort - call omp_unset_lock (lck) - if (.not. omp_test_lock (lck)) call abort - if (omp_test_lock (lck)) call abort - call omp_unset_lock (lck) - call omp_destroy_lock (lck) - - call omp_init_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 1) call abort - call omp_set_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 3) call abort - call omp_unset_nest_lock (nlck) - call omp_unset_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 2) call abort - call omp_unset_nest_lock (nlck) - call omp_unset_nest_lock (nlck) - call omp_destroy_nest_lock (nlck) - - call omp_set_dynamic (.true.) - if (.not. omp_get_dynamic ()) call abort - call omp_set_dynamic (.false.) - if (omp_get_dynamic ()) call abort - - call omp_set_nested (.true.) - if (.not. omp_get_nested ()) call abort - call omp_set_nested (.false.) - if (omp_get_nested ()) call abort - - call omp_set_num_threads (5) - if (omp_get_num_threads () .ne. 1) call abort - if (omp_get_max_threads () .ne. 5) call abort - if (omp_get_thread_num () .ne. 0) call abort - call omp_set_num_threads (3) - if (omp_get_num_threads () .ne. 1) call abort - if (omp_get_max_threads () .ne. 3) call abort - if (omp_get_thread_num () .ne. 0) call abort - l = .false. -!$omp parallel reduction (.or.:l) - l = omp_get_num_threads () .ne. 3 - l = l .or. (omp_get_thread_num () .lt. 0) - l = l .or. (omp_get_thread_num () .ge. 3) -!$omp master - l = l .or. (omp_get_thread_num () .ne. 0) -!$omp end master -!$omp end parallel - if (l) call abort - - if (omp_get_num_procs () .le. 0) call abort - if (omp_in_parallel ()) call abort -!$omp parallel reduction (.or.:l) - l = .not. omp_in_parallel () -!$omp end parallel -!$omp parallel reduction (.or.:l) if (.true.) - l = .not. omp_in_parallel () -!$omp end parallel - - e = omp_get_wtime () - if (d .gt. e) call abort - d = omp_get_wtick () - ! Negative precision is definitely wrong, - ! bigger than 1s clock resolution is also strange - if (d .le. 0 .or. d .gt. 1.) call abort -end |