aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f90')
-rw-r--r--gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f9030
1 files changed, 0 insertions, 30 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f90
deleted file mode 100644
index b3cb255f6..000000000
--- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-2.f90
+++ /dev/null
@@ -1,30 +0,0 @@
-! PR fortran/27395
-! { dg-do run }
-
-program pr27395_2
- implicit none
- integer, parameter :: n=10,m=1001
- integer :: i
- call foo(n,m)
-end program pr27395_2
-
-subroutine foo(n,m)
- use omp_lib, only : omp_get_thread_num
- implicit none
- integer, intent(in) :: n,m
- integer :: i,j
- integer, dimension(n) :: sumarray
- sumarray(:)=0
-!$OMP PARALLEL DEFAULT(shared) NUM_THREADS(4)
-!$OMP DO PRIVATE(j,i), REDUCTION(+:sumarray)
- do j=1,m
- do i=1,n
- sumarray(i)=sumarray(i)+i
- end do
- end do
-!$OMP END DO
-!$OMP END PARALLEL
- do i=1,n
- if (sumarray(i).ne.m*i) call abort
- end do
-end subroutine foo