diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-1.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 deleted file mode 100644 index 380a10776..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 +++ /dev/null @@ -1,31 +0,0 @@ -! PR fortran/27395 -! { dg-do run } - -program pr27395_1 - implicit none - integer, parameter :: n=10,m=1001 - integer :: i - integer, dimension(n) :: sumarray - call foo(n,m,sumarray) - do i=1,n - if (sumarray(i).ne.m*i) call abort - end do -end program pr27395_1 - -subroutine foo(n,m,sumarray) - use omp_lib, only : omp_get_thread_num - implicit none - integer, intent(in) :: n,m - integer, dimension(n), intent(out) :: sumarray - integer :: i,j - 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 -end subroutine foo |