aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90')
-rw-r--r--gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f9053
1 files changed, 0 insertions, 53 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90
deleted file mode 100644
index dbcc3b71d..000000000
--- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr42162.f90
+++ /dev/null
@@ -1,53 +0,0 @@
-! PR fortran/42162
-! { dg-do run }
-
-subroutine sub1(k, a)
- implicit none
- integer :: k, a(3)
- !$omp do
- do k=1,3
- a(k) = a(k) + 1
- enddo
- !$omp end do
-end subroutine sub1
-
-subroutine sub2(k, a)
- implicit none
- integer :: k, a(3)
- !$omp do private (k)
- do k=1,3
- a(k) = a(k) + 1
- enddo
- !$omp end do
-end subroutine sub2
-
-subroutine sub3(k, a)
- implicit none
- integer :: k, a(3)
- !$omp do lastprivate (k)
- do k=1,3
- a(k) = a(k) + 1
- enddo
- !$omp end do
-end subroutine sub3
-
-program pr42162
- implicit none
- integer :: k, a(3), b(3), c(3)
- a = 1
- b = 2
- c = 3
- k = 3
- !$omp parallel num_threads(3)
- call sub1 (k, a)
- !$omp end parallel
- k = 4
- !$omp parallel num_threads(3)
- call sub2 (k, b)
- !$omp end parallel
- k = 10
- !$omp parallel num_threads(3)
- call sub3 (k, c)
- !$omp end parallel
- if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) call abort
-end