diff options
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.f90 | 30 |
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 |