diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/sharing1.f90')
| -rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/sharing1.f90 | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/sharing1.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/sharing1.f90 deleted file mode 100644 index 063e7db83..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/sharing1.f90 +++ /dev/null @@ -1,29 +0,0 @@ -! { dg-do run } - - use omp_lib - integer :: i, j, k - logical :: l - common /b/ i, j - i = 4 - j = 8 - l = .false. -!$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) & -!$omp& reduction (.or.:l) - if (i .ne. 4 .or. j .ne. 8) l = .true. -!$omp barrier - k = omp_get_thread_num () - if (k .eq. 0) then - i = 14 - j = 15 - end if -!$omp barrier - if (k .eq. 1) then - if (i .ne. 4 .or. j .ne. 15) l = .true. - i = 24 - j = 25 - end if -!$omp barrier - if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. -!$omp end parallel - if (l .or. j .ne. 25) call abort -end |